/[Frey]/trunk/lib/Frey/Run.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Run.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 338 by dpavlin, Sat Nov 8 23:03:35 2008 UTC revision 339 by dpavlin, Sat Nov 8 23:34:43 2008 UTC
# Line 20  will try to invoke C<data>, and C<markup Line 20  will try to invoke C<data>, and C<markup
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',
# Line 87  sub html { Line 87  sub html {
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;
Legend:
Removed from v.338  
changed lines
  Added in v.339
  ViewVC Help
Powered by ViewVC 1.1.26