File Coverage

blib/lib/Any/Renderer/Data/Printer.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	4	0.0
total	19	26	73.0

package Any::Renderer::Data::Printer;
use strict;

use Data::Printer alias => '_dp_printer';

our $VERSION = '0.04';


sub new {
    my ( $class, $format, $options ) = @_;
    die("Invalid format $format") unless($format eq 'Data::Printer');
    return bless({options=>$options}, $class);
}


sub render {
    my ( $self, $data ) = @_;
    return _dp_printer($data, %{$self->{options}});
}


sub available_formats {
    return [ 'Data::Printer' ];
}


sub requires_template {0};

1; # End of Any::Renderer::Data::Printer

__END__