6 |
use base qw/WebPAC::Common WebPAC::Output Class::Accessor/; |
use base qw/WebPAC::Common WebPAC::Output Class::Accessor/; |
7 |
__PACKAGE__->mk_accessors(qw(path)); |
__PACKAGE__->mk_accessors(qw(path)); |
8 |
|
|
|
#use Encode qw/from_to/; |
|
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
use JSON; |
use JSON; |
11 |
use File::Slurp; |
use File::Slurp; |
30 |
|
|
31 |
=head2 new |
=head2 new |
32 |
|
|
33 |
my $output = new WebPAC::Output::JSON({ |
my $out = new WebPAC::Output::JSON({ |
34 |
path => '/path/to/file.js', |
path => '/path/to/file.js', |
35 |
}); |
}); |
36 |
|
|
46 |
|
|
47 |
=head2 init |
=head2 init |
48 |
|
|
49 |
$output->init; |
$out->init; |
50 |
|
|
51 |
=cut |
=cut |
52 |
|
|
66 |
|
|
67 |
Adds one entry to database. |
Adds one entry to database. |
68 |
|
|
69 |
$est->add( 42, $ds ); |
$out->add( 42, $ds ); |
70 |
|
|
71 |
=cut |
=cut |
72 |
|
|
88 |
|
|
89 |
=head2 finish |
=head2 finish |
90 |
|
|
91 |
$output->finish; |
$out->finish; |
92 |
|
|
93 |
=cut |
=cut |
94 |
|
|