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	package Frey::Dumper;
2	use Moose;
3
4	use Data::Dump qw/dump/;
5
6	=head1 NAME
7
8	Frey::Dumper - dump perl data as tree
9
10	=cut
11
12	has data => (
13	is => 'rw',
14	required => 1,
15	);
16
17	sub markup {
18	my ($self) = @_;
19
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	}
44
45	1;