115 |
} elsif ( $self->run eq 'sponge' ) { |
} elsif ( $self->run eq 'sponge' ) { |
116 |
my $data = $o->sponge; |
my $data = $o->sponge; |
117 |
confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH'; |
confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH'; |
118 |
|
my $rows = $#{ $data->{rows} } + 1; |
119 |
|
$rows ||= 'no'; |
120 |
|
$html .= "<strong>$rows</strong> rows from <code>$class->new" . dump( $self->params ) . "->sponge</code>"; |
121 |
$html .= '<table>'; |
$html .= '<table>'; |
122 |
$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>'; |
$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>'; |
123 |
$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} }; |
$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} }; |
125 |
} elsif ( $self->run eq 'data' ) { |
} elsif ( $self->run eq 'data' ) { |
126 |
my $data = $o->data; |
my $data = $o->data; |
127 |
$html .= Frey::Dumper->new( data => $data )->markup; |
$html .= Frey::Dumper->new( data => $data )->markup; |
128 |
$html .= '<hr/><code>' . $self->html_dump( $data ) . '</code>'; |
$html .= '<hr/><span class="frey-popdown">dump<span><code>' . $self->html_dump( $data ) . '</code></span></span>'; |
129 |
} else { |
} else { |
130 |
$html = $self->error( "IGNORE: $class ", $o->dump ); |
$html = $self->error( "IGNORE: $class ", $o->dump ); |
131 |
} |
} |
134 |
$html .= $self->error( $@ ) if $@; |
$html .= $self->error( $@ ) if $@; |
135 |
} |
} |
136 |
|
|
137 |
|
return $self->page( %$html ) if ref($html) eq 'HASH'; |
138 |
return $self->page( title => $class, body => $html ); |
return $self->page( title => $class, body => $html ); |
139 |
} |
} |
140 |
|
|