File Coverage

blib/lib/Module/AnyEvent/Helper/Filter.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod			n/a
total	34	34	100.0

package Module::AnyEvent::Helper::Filter;

use strict;
use warnings;

# ABSTRACT: source filter for AnyEvent-ize helper
our $VERSION = 'v0.0.5'; # VERSION

use Carp;

BEGIN {
	require filtered;
}

my @keys = qw(-remove_func -translate_func -replace_func -delete_func -exclude_func);

sub import
{
	my ($pkg, %arg) = @_;
	my ($with);
	$arg{$_} ||= [] for @keys;
	my $trans_arg = join ",\n", map { $_." => [qw(@{$arg{$_}})]" } @keys;
	if(exists $arg{-transformer}) {
		my $transformer = 'Module::AnyEvent::Helper::PPI::Transform::' . $arg{-transformer};
		eval "require $transformer";
		croak "Can't load ${transformer}: $@" if $@;
		$with = <
'PPI::Transform::Sequence',
$transformer => [],
Module::AnyEvent::Helper::PPI::Transform => [
${trans_arg}]
EOF
	} else {
		$with = <
'Module::AnyEvent::Helper::PPI::Transform',
${trans_arg}
EOF
	}
	filtered->import(
		by => 'Filter::PPI::Transform',
		with => $with,
		on => $arg{-target},
		as => $arg{-as},
		use_ppi => 1,
		()
	);
}

1;

__END__