Parent Directory | Revision Log
produce json from data (for pipes)
1 | dpavlin | 419 | 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 |