Parent Directory | Revision Log
produce json from data (for pipes)
1 | package Frey::JSON; |
2 | use Moose; |
3 | |
4 | =head1 DESCRIPTION |
5 | |
6 | dump perl data as json |
7 | |
8 | =cut |
9 | |
10 | use JSON; |
11 | |
12 | has data => ( |
13 | is => 'rw', |
14 | required => 1, |
15 | ); |
16 | |
17 | sub markup { |
18 | my ($self) = @_; |
19 | to_json $self->data; |
20 | } |
21 | |
22 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |