lib/Frey/Dumper.pm

package Frey::Dumper;
use Moose;

=head1 NAME

Frey::Dumper - dump data using L<Data::Dumper::HTML>

=cut

use Data::Dumper::HTML qw(dumper_html);

has data => (
        is => 'rw',
        required => 1,
);

sub markup {
        my ($self) = @_;
        dumper_html( $self->data );
}

1;
1	package Frey::Dumper;
2	use Moose;
3
4	=head1 NAME
5
6	Frey::Dumper - dump data using L<Data::Dumper::HTML>
7
8	=cut
9
10	use Data::Dumper::HTML qw(dumper_html);
11
12	has data => (
13	is => 'rw',
14	required => 1,
15	);
16
17	sub markup {
18	my ($self) = @_;
19	dumper_html( $self->data );
20	}
21
22	1;