Frey/View/Exhibit.pm

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

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

use MooseX::Types::Moose qw(Str Int ArrayRef);
use MooseX::Types::Structured qw/Dict/;

use Data::Dump qw/dump/;

=head1 DESCRIPTION

present C<sponge> as Exhibit from L<http://simile.mit.edu/exhibit/>

=cut

has sponge => (
        is => 'rw',
        isa => Dict[
                rows => ArrayRef[ArrayRef],
                NAME => ArrayRef[Str],
        ],
#       required => 1,
);

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

        confess "need sponge" unless $self->sponge;

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

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

        return $items;
}

sub depends {
        my ($self) = @_;
        $self->add_head(qq{
                <link href="/Frey::Pipe/markup?pipe=Frey::DelIcioUs/sponge|Frey::View::Exhibit/data|Frey::JSON/markup"
                        type="application/json" rel="exhibit/data" />
        });
        $self->add_head(qq|
                <script src="http://static.simile.mit.edu/exhibit/api-2.0/exhibit-api.js"
                        type="text/javascript"></script>
        |);
        warn "# depends";
}

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

        return qq|
                <table width="100%">
                        <tr valign="top">
                                <td ex:role="viewPanel">
                                        <div ex:role="view"></div>
                                </td>
                                <td width="25%">
                                        browsing controls here...
                                </td>
                        </tr>
                </table>
        |;
}

1;
1	dpavlin	449	package Frey::View::Exhibit;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6
7			use MooseX::Types::Moose qw(Str Int ArrayRef);
8			use MooseX::Types::Structured qw/Dict/;
9
10			use Data::Dump qw/dump/;
11
12			=head1 DESCRIPTION
13
14			present C<sponge> as Exhibit from L<http://simile.mit.edu/exhibit/>
15
16			=cut
17
18			has sponge => (
19			is => 'rw',
20			isa => Dict[
21			rows => ArrayRef[ArrayRef],
22			NAME => ArrayRef[Str],
23			],
24			# required => 1,
25			);
26
27			sub data {
28			my ($self) = @_;
29
30			confess "need sponge" unless $self->sponge;
31
32			my $items;
33			my $names = $self->sponge->{NAME};
34
35			foreach my $row ( @{ $self->sponge->{rows} } ) {
36			my $item;
37			map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } );
38			push @{ $items->{items} }, $item;
39			}
40
41			return $items;
42			}
43
44			sub depends {
45			my ($self) = @_;
46			$self->add_head(qq{
47			<link href="/Frey::Pipe/markup?pipe=Frey::DelIcioUs/sponge\|Frey::View::Exhibit/data\|Frey::JSON/markup"
48			type="application/json" rel="exhibit/data" />
49			});
50			$self->add_head(qq\|
51			<script src="http://static.simile.mit.edu/exhibit/api-2.0/exhibit-api.js"
52			type="text/javascript"></script>
53			\|);
54			warn "# depends";
55			}
56
57			sub markup {
58			my ($self) = @_;
59
60			return qq\|
61			<table width="100%">
62			<tr valign="top">
63			<td ex:role="viewPanel">
64			<div ex:role="view"></div>
65			</td>
66			<td width="25%">
67			browsing controls here...
68			</td>
69			</tr>
70			</table>
71			\|;
72			}
73
74			1;