lib/Frey/Dumper.pm

package Frey::Dumper;
use Moose;

with 'Frey::Escape';

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) = @_;
        qq|<div class="frey-dumper">| . $self->unroll( $self->data ) . qq|</div>|;
}

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

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