20 |
|
|
21 |
=cut |
=cut |
22 |
|
|
23 |
sub runnable { qw/data markup/ } |
sub runnable { qw/data markup sponge/ } |
24 |
|
|
25 |
has 'class' => ( |
has 'class' => ( |
26 |
is => 'rw', |
is => 'rw', |
87 |
$html .= qq{<code>$@</code>}; |
$html .= qq{<code>$@</code>}; |
88 |
} |
} |
89 |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
warn ">>> markup $class ",length( $html ), " bytes\n"; |
90 |
|
} elsif ( $o->can('sponge') ) { |
91 |
|
my $data = $o->sponge; |
92 |
|
$html .= '<table>'; |
93 |
|
$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>'; |
94 |
|
$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} }; |
95 |
|
$html .= '</table>'; |
96 |
} elsif ( $o->can('data') ) { |
} elsif ( $o->can('data') ) { |
97 |
my $data = $o->data; |
my $data = $o->data; |
98 |
$html .= Frey::Dumper->new( data => $data )->markup; |
$html .= Frey::Dumper->new( data => $data )->markup; |