Frey/View/Exhibit.pm

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

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

use Data::Dump qw/dump/;

=head1 DESCRIPTION

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

=head1 SEE ALSO

L<Frey::View::Exhibit::JSON>

=cut

has pipe => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Frey::DelIcioUs/as_sponge|Frey::View::Exhibit::JSON/as_markup',
);

sub depends {
        my ($self) = @_;
        my $pipe = $self->url_escape( $self->pipe );
        $self->add_head(qq|
                <link href="/Frey::Pipe/as_markup?pipe=$pipe" 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 as_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>
        |;
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;
1	dpavlin	449	package Frey::View::Exhibit;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6
7			use Data::Dump qw/dump/;
8
9			=head1 DESCRIPTION
10
11			present C<sponge> as Exhibit from L<http://simile.mit.edu/exhibit/>
12
13	dpavlin	946	=head1 SEE ALSO
14
15			L<Frey::View::Exhibit::JSON>
16
17	dpavlin	449	=cut
18
19	dpavlin	946	has pipe => (
20	dpavlin	449	is => 'rw',
21	dpavlin	946	isa => 'Str',
22			required => 1,
23			default => 'Frey::DelIcioUs/as_sponge\|Frey::View::Exhibit::JSON/as_markup',
24	dpavlin	449	);
25
26			sub depends {
27			my ($self) = @_;
28	dpavlin	946	my $pipe = $self->url_escape( $self->pipe );
29	dpavlin	449	$self->add_head(qq\|
30	dpavlin	946	<link href="/Frey::Pipe/as_markup?pipe=$pipe" type="application/json" rel="exhibit/data" />
31			\|);
32			$self->add_head(qq\|
33	dpavlin	449	<script src="http://static.simile.mit.edu/exhibit/api-2.0/exhibit-api.js"
34			type="text/javascript"></script>
35			\|);
36			warn "# depends";
37			}
38
39	dpavlin	455	sub as_markup {
40	dpavlin	449	my ($self) = @_;
41
42			return qq\|
43			<table width="100%">
44			<tr valign="top">
45			<td ex:role="viewPanel">
46			<div ex:role="view"></div>
47			</td>
48			<td width="25%">
49			browsing controls here...
50			</td>
51			</tr>
52			</table>
53			\|;
54			}
55
56	dpavlin	1133	__PACKAGE__->meta->make_immutable;
57			no Moose;
58
59	dpavlin	449	1;