File Coverage

blib/lib/HTML/Shakan/Filters.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	6	83.3
condition	2	2	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	32	34	94.1

package HTML::Shakan::Filters;
use strict;
use warnings;
use Scalar::Util 'blessed';

sub _get_filter {
    my $pkg = shift;
    $pkg = $pkg =~ s/^\+// ? $pkg : "HTML::Shakan::Filter::$pkg";
    Mouse::load_class($pkg);
    return $pkg->new();
}

sub filter {
    my ($class, $filter_ary, $val) = @_;
    $filter_ary = [$filter_ary] unless (ref $filter_ary||'') eq 'ARRAY';
    for my $filter (@$filter_ary) {
        unless (blessed $filter) {
            $filter = _get_filter($filter);
        }
        $val = $filter->filter($val);
    }
    $val;
}

1;
__END__

=head1 NAME

HTML::Shakan::Filters - filter class manager

=head1 DESCRIPTION

INTERNAL USE ONLY

=head1 SEE ALSO

L<HTML::Shakan>