7 |
with 'Frey::Session'; |
with 'Frey::Session'; |
8 |
|
|
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
use Frey::Dumper; |
use Frey::View::Dumper; |
11 |
use JSON; |
use JSON; |
12 |
use YAML; |
use YAML; |
13 |
|
|
78 |
if ( $is_role ) { |
if ( $is_role ) { |
79 |
$o = $instance; |
$o = $instance; |
80 |
} else { |
} else { |
81 |
$o = $class->new( %{ $self->params } ); |
$o = $self->new_frey_class( $class, $self->params ); |
82 |
} |
} |
83 |
|
|
84 |
$o->depends if $o->can('depends'); |
$o->depends if $o->can('depends'); |
117 |
push @{ $self->status }, { 'data' => $data }; |
push @{ $self->status }, { 'data' => $data }; |
118 |
} |
} |
119 |
if ( ! $html ) { |
if ( ! $html ) { |
120 |
$body .= Frey::Dumper->new( data => $data )->as_markup; |
$body .= Frey::View::Dumper->new( data => $data )->as_markup; |
121 |
} |
} |
122 |
|
|
123 |
# override our status with one from object |
# override our status with one from object |