lib/Frey/Dumper.pm

package Frey::Dumper;
use Moose;

use Data::Dump qw/dump/;

=head1 NAME

Frey::Dumper - dump perl data as tree

=cut

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

sub markup {
        my ($self) = @_;

        sub unroll {
                my ($data,$ref,$key) = @_;
                my $out;
                my $title = $ref ? qq| title="$ref"| : '';
                if ( ref($data) eq 'ARRAY' ) {
                        $out .= "<li>$key</li>" if $key;
                        $out .= qq|<ol${title}>\n|;
                        $out .= unroll($_,ref($_)) foreach @$data;
                        $out .= "</ol>\n";
                } elsif ( ref($data) ) {
                        $out .= "<li>$key</li>" if $key;
                        $out .= qq|<ul${title}>\n|;
                        $out .= unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data;
                        $out .= "</ul>\n";
                } else {
                        $out .= qq|<li${title}>|;
                        $out .= "$key &rarr; " if $key;
                        $out .= dump( $data ) . "</li>";
                }
                return $out;
        }

        unroll( $self->data );
}

1;
1	dpavlin	287	package Frey::Dumper;
2			use Moose;
3
4	dpavlin	325	use Data::Dump qw/dump/;
5
6	dpavlin	287	=head1 NAME
7
8	dpavlin	325	Frey::Dumper - dump perl data as tree
9	dpavlin	287
10			=cut
11
12			has data => (
13			is => 'rw',
14			required => 1,
15			);
16
17			sub markup {
18			my ($self) = @_;
19	dpavlin	325
20			sub unroll {
21			my ($data,$ref,$key) = @_;
22			my $out;
23			my $title = $ref ? qq\| title="$ref"\| : '';
24			if ( ref($data) eq 'ARRAY' ) {
25			$out .= "<li>$key</li>" if $key;
26			$out .= qq\|<ol${title}>\n\|;
27			$out .= unroll($_,ref($_)) foreach @$data;
28			$out .= "</ol>\n";
29			} elsif ( ref($data) ) {
30			$out .= "<li>$key</li>" if $key;
31			$out .= qq\|<ul${title}>\n\|;
32			$out .= unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data;
33			$out .= "</ul>\n";
34			} else {
35			$out .= qq\|<li${title}>\|;
36			$out .= "$key → " if $key;
37			$out .= dump( $data ) . "</li>";
38			}
39			return $out;
40			}
41
42			unroll( $self->data );
43	dpavlin	287	}
44
45			1;