File Coverage

blib/lib/Data/Printer/Filter.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	1	2	50.0
condition	2	6	33.3
subroutine	9	9	100.0
pod			n/a
total	43	48	89.5

package Data::Printer::Filter;
use strict;
use warnings;
use Data::Printer::Common;
use Scalar::Util;

sub import {
    my $caller = caller;

    my %_filters_for  = ();
    my $filter = sub {
        my ($name, $code) = @_;
        Data::Printer::Common::_die( "syntax: filter 'Class', sub { ... }" )
          unless defined $name
              && defined $code
              && Scalar::Util::reftype($code) eq 'CODE';

        my $target = Data::Printer::Common::_filter_category_for($name);
        unshift @{$_filters_for{$target}{$name}}, sub {
            my ($item, $ddp) = @_;
            $code->($item, $ddp);
        };
    };

    {
        no strict 'refs';
        *{"$caller\::filter"}  = $filter;
        *{"$caller\::_filter_list"} = sub { \%_filters_for };
    }
};

1;
__END__