lib/Frey/JSON.pm

package Frey::JSON;
use Moose;

extends 'Frey';
with 'Frey::Web';

=head1 DESCRIPTION

dump perl data as json

=cut

use JSON;

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

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

1;
1	package Frey::JSON;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6
7	=head1 DESCRIPTION
8
9	dump perl data as json
10
11	=cut
12
13	use JSON;
14
15	has data => (
16	is => 'rw',
17	required => 1,
18	);
19
20	sub markup {
21	my ($self) = @_;
22	$self->content_type('application/javascript');
23	JSON->new->allow_nonref(1)->encode($self->data);
24	}
25
26	1;