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"| : '';

        $out .= qq|<li${title}>|;
        my $mark = $key || '&diams;';
        $out .= $ref && $ref !~ m{^(ARRAY|HASH)$} ? qq|<a href="/$ref" class="blessed" target="blessed" title="$ref">$mark</a>| : ( $key || '' );

        if ( ref($data) eq 'ARRAY' ) {
                $out .= " &darr;</li>" if $key;
                $out .= qq|<ol${title} start=0>\n|;
                $out .= $self->unroll($_,ref($_)) foreach @$data;
                $out .= "</ol>\n";
        } elsif ( ref($data) && eval { %$data } ) {
                $out .= " &darr;</li>" if $key;
                $out .= qq|<ul${title}>\n|;
                $out .= $self->unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data;
                $out .= "</ul>\n";
        } else {
                $out .= " &rarr; " if $key;
                if ( defined $data && $data =~ m{<(\w+).*>.+</\1>} ) {
                        $out .= qq|<div style="background: #eee; color: #000" title="HTML">$data</div></li>|;
                } else {
                        $out .= "<span>" . $self->html_dump( $data ) . "</span></li>";
                }
        }
        $out .= "</li>";

        return $out;
}

1;
1	package Frey::Dumper;
2	use Moose;
3
4	with 'Frey::Escape';
5
6	use Data::Dump qw/dump/;
7
8	=head1 NAME
9
10	Frey::Dumper - dump perl data as tree
11
12	=cut
13
14	has data => (
15	is => 'rw',
16	required => 1,
17	);
18
19	sub markup {
20	my ($self) = @_;
21	qq\|<div class="frey-dumper">\| . $self->unroll( $self->data ) . qq\|</div>\|;
22	}
23
24	sub unroll {
25	my ($self,$data,$ref,$key) = @_;
26	my $out;
27	my $title = $ref ? qq\| title="$ref"\| : '';
28
29	$out .= qq\|<li${title}>\|;
30	my $mark = $key \|\| '&diams;';
31	$out .= $ref && $ref !~ m{^(ARRAY\|HASH)$} ? qq\|<a href="/$ref" class="blessed" target="blessed" title="$ref">$mark</a>\| : ( $key \|\| '' );
32
33	if ( ref($data) eq 'ARRAY' ) {
34	$out .= " ↓</li>" if $key;
35	$out .= qq\|<ol${title} start=0>\n\|;
36	$out .= $self->unroll($_,ref($_)) foreach @$data;
37	$out .= "</ol>\n";
38	} elsif ( ref($data) && eval { %$data } ) {
39	$out .= " ↓</li>" if $key;
40	$out .= qq\|<ul${title}>\n\|;
41	$out .= $self->unroll($data->{$_},ref($data->{$_}),$_) foreach keys %$data;
42	$out .= "</ul>\n";
43	} else {
44	$out .= " → " if $key;
45	if ( defined $data && $data =~ m{<(\w+).*>.+</\1>} ) {
46	$out .= qq\|<div style="background: #eee; color: #000" title="HTML">$data</div></li>\|;
47	} else {
48	$out .= "<span>" . $self->html_dump( $data ) . "</span></li>";
49	}
50	}
51	$out .= "</li>";
52
53	return $out;
54	}
55
56	1;