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	dpavlin	946	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;