--- trunk/lib/Frey/CSS/Area.pm 2009/01/05 13:50:27 919
+++ trunk/lib/Frey/CSS/Area.pm 2009/01/07 00:04:46 955
@@ -11,11 +11,10 @@
=cut
-has skeleton => (
+has sponge => (
is => 'rw',
- isa => 'Str',
+ isa => 'Sponge',
required => 1,
- default => 'skeleton',
);
sub as_markup {
@@ -24,33 +23,26 @@
$self->add_css( 'static/Frey/CSS/Area.css' );
$self->add_js ( 'static/Frey/CSS/Area.js' );
- qq|
-
-
-
-- Mon 100
-- Tue 200
-- Wed 150
-- Thu 180
-- Fri 100
-- Sat 200
-- Sun 150
-- Mon 80
-- Tue 75
-- Wed 125
-- Thu 125
-- Fri 160
-- Sat 160
-- Sun 15
-
-
-
-
-
-Click on the table or graph to switch view
-
-
+ my $html
+ = qq||
+ . join("\n",
+ map {
+ my ( $val, $name ) = ( $_->[0], $_->[1] );
+ die "first column data isn't numeric ", $self->dump( $_ ) unless $val =~ m{^\d+$};
+ qq|- $name $val
|;
+ } @{ $self->sponge->{rows} }
+ )
+ . qq|
|
+ ;
+
+ $html .= qq|
+
+
+ Click on the table or graph to switch view
+
|;
+
+ return $html;
}
1;