Frey/View/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	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	dpavlin	441	JSON->new->allow_nonref(1)->encode($self->data);
20	dpavlin	419	}
21
22			1;