View/Exhibit/JSON.pm

package Frey::View::Exhibit::JSON;
use Moose;

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';

has sponge => (
        is => 'rw',
        isa => 'Sponge',
        required => 1,
);

use JSON;

sub as_markup {
        my ($self) = @_;

        my $items;
        my $names = $self->sponge->{NAME};

        my $id = 0;
        my $have_id = grep { m{^id$} } @$names;
        my $have_label = grep { m{^label$} } @$names;

        foreach my $row ( @{ $self->sponge->{rows} } ) {
                my $item;
                map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } );
                $item->{id}    = $id unless $have_id;
                $item->{label} = $id unless $have_label;
                $id++;
                push @{ $items->{items} }, $item;
        }

        $self->content_type('application/javascript');
#       JSON->new->allow_nonref(1)->allow_blessed(1)->encode($items);
        JSON->new->encode($items);
}

1;
1	package Frey::View::Exhibit::JSON;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6	#with 'Frey::Storage';
7
8	has sponge => (
9	is => 'rw',
10	isa => 'Sponge',
11	required => 1,
12	);
13
14	use JSON;
15
16	sub as_markup {
17	my ($self) = @_;
18
19	my $items;
20	my $names = $self->sponge->{NAME};
21
22	my $id = 0;
23	my $have_id = grep { m{^id$} } @$names;
24	my $have_label = grep { m{^label$} } @$names;
25
26	foreach my $row ( @{ $self->sponge->{rows} } ) {
27	my $item;
28	map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } );
29	$item->{id} = $id unless $have_id;
30	$item->{label} = $id unless $have_label;
31	$id++;
32	push @{ $items->{items} }, $item;
33	}
34
35	$self->content_type('application/javascript');
36	# JSON->new->allow_nonref(1)->allow_blessed(1)->encode($items);
37	JSON->new->encode($items);
38	}
39
40	1;