Frey/View/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	dpavlin	419	package Frey::JSON;
2			use Moose;
3
4	dpavlin	448	extends 'Frey';
5			with 'Frey::Web';
6
7	dpavlin	419	=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	dpavlin	448	$self->content_type('application/javascript');
23	dpavlin	441	JSON->new->allow_nonref(1)->encode($self->data);
24	dpavlin	419	}
25
26			1;