Frey/View/JSON.pm

package Frey::View::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 as_markup {
        my ($self) = @_;
        $self->content_type('application/javascript');
        JSON->new->allow_nonref(1)->allow_blessed(1)->encode($self->data);
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;
1	dpavlin	467	package Frey::View::JSON;
2	dpavlin	419	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	dpavlin	455	sub as_markup {
21	dpavlin	419	my ($self) = @_;
22	dpavlin	448	$self->content_type('application/javascript');
23	dpavlin	962	JSON->new->allow_nonref(1)->allow_blessed(1)->encode($self->data);
24	dpavlin	419	}
25
26	dpavlin	1133	__PACKAGE__->meta->make_immutable;
27			no Moose;
28
29	dpavlin	419	1;