File Coverage

blib/lib/Data/Dumper/HTML.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch			n/a
condition			n/a
subroutine	6	10	60.0
pod	0	4	0.0
total	24	37	64.8

package Data::Dumper::HTML;

use strict;
use warnings;
use version;our $VERSION = qv('0.0.2');

use base 'Exporter';
our @EXPORT_OK = qw(DumperHTML dumper_html);

use Data::Dumper;
use Text::InHTML;

our ($shu_hr, $tabs);

sub Data::Dumper::dump_html {
    my $dd = shift;
    Text::InHTML::encode_perl( join("\n", $dd->Dump(@_)), $shu_hr, $tabs );
}

sub Data::Dumper::DumpHTML {
    goto &Data::Dumper::dump_html;
}

sub dumper_html {
    Text::InHTML::encode_perl( join("\n", Data::Dumper::Dumper(@_)), $shu_hr, $tabs );
}

sub DumperHTML {
    goto &dumper_html;
}

1;

__END__