File Coverage

blib/lib/App/JSON/to/perl.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	20	21	95.2

use strict;
use warnings;

package App::JSON::to::perl;

our $VERSION = '1.000';

use Data::Dumper ();


sub dump
{
    my $data = $_[1];

    local $Data::Dumper::Indent = 0;
    local $Data::Dumper::Purity = 0;
    local $Data::Dumper::Terse = 1;
    local $Data::Dumper::Sortkeys = 1;
    local $Data::Dumper::Quotekeys = 0;

    Data::Dumper::Dumper($data) . "\n"
}

1;