/[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 352 by dpavlin, Sun Nov 16 13:01:56 2008 UTC revision 353 by dpavlin, Sun Nov 16 14:07:13 2008 UTC
# Line 103  sub html { Line 103  sub html {
103                  }                  }
104                  $html .= qq|<input type="submit" value="Run $class"></form>|;                  $html .= qq|<input type="submit" value="Run $class"></form>|;
105          } else {          } else {
106                  my $o;                  eval {
107                  eval { $o = $class->new( %{ $self->params } ); };                          my $o;
108                  if ( $@ ) {                          $o = $class->new( %{ $self->params } );
109                          return $self->page( title => $class, body => $self->error( $@ ) );                          $o->depends if $o->can('depends');
                 }  
                 $o->depends if $o->can('depends');  
110    
111                  if ( $self->run eq 'markup' ) {                          if ( $self->run eq 'markup' ) {
112                          warn "## using ",ref($o), "->markup";                                  warn "## using ",ref($o), "->markup";
113                          $html = eval { $o->markup };                                  $html = $o->markup;
114                          $html .= $self->error( $@ ) if $@;                                  warn ">>> markup $class ",length( $html ), " bytes\n";
115                          warn ">>> markup $class ",length( $html ), " bytes\n";                          } elsif ( $self->run eq 'sponge' ) {
116                  } elsif ( $self->run eq 'sponge' ) {                                  my $data = $o->sponge;
117                          my $data = eval { $o->sponge };                                  confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH';
                         if ( $@ ) {  
                                 $html .= $self->error( $@ );  
                         } else {  
118                                  $html .= '<table>';                                  $html .= '<table>';
119                                  $html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>';                                  $html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>';
120                                  $html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} };                                  $html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} };
121                                  $html .= '</table>';                                  $html .= '</table>';
122                          }                          } elsif ( $self->run eq 'data' ) {
123                  } elsif ( $self->run eq 'data' ) {                                  my $data = $o->data;
                         my $data = eval { $o->data; };  
                         if ( $@ ) {  
                                 $html .= $self->error( $@ );  
                         } else {  
124                                  $html .= Frey::Dumper->new( data => $data )->markup;                                  $html .= Frey::Dumper->new( data => $data )->markup;
125                                  $html .= '<hr/><code>' . $self->html_dump( $data ) . '</code>';                                  $html .= '<hr/><code>' . $self->html_dump( $data ) . '</code>';
126                            } else {
127                                    $html = $self->error( "IGNORE: $class ", $o->dump );
128                          }                          }
129                  } else {                  };
130                          $html = $self->error( "IGNORE: $class ", $o->dump );  
131                  }                  $html .= $self->error( $@ ) if $@;
132          }          }
133    
134          return $self->page( title => $class, body => $html );          return $self->page( title => $class, body => $html );
Legend:
Removed from v.352  
changed lines
  Added in v.353
  ViewVC Help
Powered by ViewVC 1.1.26