|
0
|
1 package CPT::Writer::JSON;
|
|
|
2 use Moose;
|
|
|
3 with 'CPT::Writer';
|
|
|
4
|
|
|
5 sub process {
|
|
|
6 my ($self) = @_;
|
|
|
7 use JSON::XS;
|
|
|
8 $self->processed_data( encode_json $self->data );
|
|
|
9 $self->processing_complete(1);
|
|
|
10 }
|
|
|
11
|
|
|
12 sub suffix {
|
|
|
13 return 'json';
|
|
|
14 }
|
|
|
15 no Moose;
|
|
|
16 1;
|
|
|
17
|
|
|
18 __END__
|
|
|
19
|
|
|
20 =pod
|
|
|
21
|
|
|
22 =encoding UTF-8
|
|
|
23
|
|
|
24 =head1 NAME
|
|
|
25
|
|
|
26 CPT::Writer::JSON
|
|
|
27
|
|
|
28 =head1 VERSION
|
|
|
29
|
|
|
30 version 1.99.4
|
|
|
31
|
|
|
32 =head1 AUTHOR
|
|
|
33
|
|
|
34 Eric Rasche <rasche.eric@yandex.ru>
|
|
|
35
|
|
|
36 =head1 COPYRIGHT AND LICENSE
|
|
|
37
|
|
|
38 This software is Copyright (c) 2014 by Eric Rasche.
|
|
|
39
|
|
|
40 This is free software, licensed under:
|
|
|
41
|
|
|
42 The GNU General Public License, Version 3, June 2007
|
|
|
43
|
|
|
44 =cut
|
