File Coverage

blib/lib/macro/filter.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	31	32	96.8

package macro::filter;

use strict;
use warnings;

BEGIN{
	require macro;
	our @ISA = qw(macro);
	*VERSION = \$macro::VERSION;
}

use Filter::Util::Call ();

sub import{
	my $class = shift;

	return unless @_;

	my $self  = $class->new();

	$self->defmacro(@_);


	Filter::Util::Call::filter_add($self);
	return;
}

sub filter :method{
	my($self) = @_;

	Filter::Util::Call::filter_del();

	1 while Filter::Util::Call::filter_read();

	$_ = $self->process( $_, [caller]);

	return 1;
}


1;
__END__