lib/Frey/JSON.pm

package Frey::JSON;
use Moose;

=head1 DESCRIPTION

dump perl data as json

=cut

use JSON;

has data => (
        is => 'rw',
        required => 1,
);

sub markup {
        my ($self) = @_;
        JSON->new->allow_nonref(1)->encode($self->data);
}

1;
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	JSON->new->allow_nonref(1)->encode($self->data);
20	}
21
22	1;