File Coverage

blib/lib/Data/Dump/Ala/SHARYANTO.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	28	29	96.5

package Data::Dump::Ala::SHARYANTO;

use 5.010001;
use strict;
use warnings;
use Data::Dump::Filtered qw();

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(dd);

our $VERSION = '0.02'; # VERSION

sub dd {
    # dump_filtered always prints? unlike dd
    Data::Dump::Filtered::dump_filtered(
        @_,
        sub {
            my ($ctx, $oref) = @_;
            if ($ctx->class) {
                if ($oref->isa("DateTime")) {
                    return {dump => "\"$oref\"", comment => "DateTime object"};
                }
            } else {
                return;
            }
        }
    );
}

1;
# ABSTRACT: Use Data::Dump to dump data à la Steven Haryanto

__END__