Frey/CSS/Area.pm

package Frey::CSS::Area;
use Moose;

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

=head1 DESCRIPTION

CSS area graph based on example from L<http://www.khanate.co.uk/graph/>

=cut

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

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

        $self->add_css( 'static/Frey/CSS/Area.css' );
        $self->add_js ( 'static/Frey/CSS/Area.js'  );

        my $html
                = qq|<ul class="graph" onclick="gr.makeGraphs(); return false;">|
                . join("\n",
                        map {
                                my ( $val, $name ) = ( $_->[0], $_->[1] );
                                die "first column data isn't numeric ", $self->dump( $_ ) unless $val =~ m{^\d+$};
                                qq|<li><span class="name">$name</span> <span class="val">$val</span></li>|;
                        } @{ $self->sponge->{rows} }
                )
                . qq|</ul>|
                ;

        $html .= qq|
                <br style="clear:both" />
                <div class="note">
                Click on the table or graph to switch view
                </div>
        |;

        return $html;
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;
1	dpavlin	919	package Frey::CSS::Area;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6
7			=head1 DESCRIPTION
8
9			CSS area graph based on example from L<http://www.khanate.co.uk/graph/>
10
11			=cut
12
13	dpavlin	955	has sponge => (
14	dpavlin	919	is => 'rw',
15	dpavlin	955	isa => 'Sponge',
16	dpavlin	919	required => 1,
17			);
18
19			sub as_markup {
20			my ($self) = @_;
21
22			$self->add_css( 'static/Frey/CSS/Area.css' );
23			$self->add_js ( 'static/Frey/CSS/Area.js' );
24
25	dpavlin	955	my $html
26			= qq\|<ul class="graph" onclick="gr.makeGraphs(); return false;">\|
27			. join("\n",
28			map {
29			my ( $val, $name ) = ( $_->[0], $_->[1] );
30			die "first column data isn't numeric ", $self->dump( $_ ) unless $val =~ m{^\d+$};
31			qq\|<li><span class="name">$name</span> <span class="val">$val</span></li>\|;
32			} @{ $self->sponge->{rows} }
33			)
34			. qq\|</ul>\|
35			;
36	dpavlin	919
37	dpavlin	955	$html .= qq\|
38			<br style="clear:both" />
39			<div class="note">
40			Click on the table or graph to switch view
41			</div>
42			\|;
43	dpavlin	919
44	dpavlin	955	return $html;
45	dpavlin	919	}
46
47	dpavlin	1133	__PACKAGE__->meta->make_immutable;
48			no Moose;
49
50	dpavlin	919	1;