14 |
line |
line |
15 |
)); |
)); |
16 |
|
|
17 |
|
use WebPAC::Path; |
18 |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
19 |
use File::Slurp; |
use File::Slurp; |
20 |
use Encode qw/decode/; |
use Encode qw/decode/; |
69 |
return 0; |
return 0; |
70 |
} |
} |
71 |
|
|
72 |
|
mk_base_path( $self->path ); |
73 |
|
|
74 |
$self->workbook( Spreadsheet::WriteExcel->new( $self->path ) ) || |
$self->workbook( Spreadsheet::WriteExcel->new( $self->path ) ) || |
75 |
$log->logdie("can't open ", $self->path,": $!"); |
$log->logdie("can't open ", $self->path,": $!"); |
76 |
|
|