--- trunk/lib/Frey/Run.pm 2008/11/08 23:33:55 338
+++ trunk/lib/Frey/Run.pm 2008/11/08 23:34:43 339
@@ -20,7 +20,7 @@
=cut
-sub runnable { qw/data markup/ }
+sub runnable { qw/data markup sponge/ }
has 'class' => (
is => 'rw',
@@ -87,6 +87,12 @@
$html .= qq{$@
};
}
warn ">>> markup $class ",length( $html ), " bytes\n";
+ } elsif ( $o->can('sponge') ) {
+ my $data = $o->sponge;
+ $html .= '
' . join(' | ', @{$data->{NAME}} ) . ' |
---|---|
' . join(' | ', @$_ ) . ' |