1 |
package Frey::Dumper; |
package Frey::View::Dumper; |
2 |
use Moose; |
use Moose; |
3 |
|
|
4 |
|
extends 'Frey'; |
5 |
|
with 'Frey::Web'; |
6 |
with 'Frey::Escape'; |
with 'Frey::Escape'; |
7 |
|
|
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
|
|
10 |
=head1 NAME |
=head1 DESCRIPTION |
11 |
|
|
12 |
Frey::Dumper - dump perl data as tree |
dump C<data> as html tree |
13 |
|
|
14 |
=cut |
=cut |
15 |
|
|
16 |
has data => ( |
has data => ( |
17 |
is => 'rw', |
is => 'rw', |
18 |
required => 1, |
required => 1, |
19 |
|
documentation => "input data", |
20 |
); |
); |
21 |
|
|
22 |
sub markup { |
sub as_markup { |
23 |
my ($self) = @_; |
my ($self) = @_; |
24 |
qq|<div class="frey-dumper">| . $self->unroll( $self->data ) . qq|</div>|; |
qq|<div class="frey-dumper">| . $self->unroll( $self->data ) . qq|</div>|; |
25 |
} |
} |