File Coverage

blib/lib/TipJar/Template/fill.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition	8	10	80.0
subroutine	5	5	100.0
pod	0	1	0.0
total	41	44	93.1

package TipJar::Template::fill;

use vars qw/$VERSION/;

$VERSION = '0.01';

sub import{
	shift; # lose package name
	my %args = @_;

	$args{fill} ||= 'fill';
	$args{hashref} ||= \%{caller().'::'.$args{fill}};
	$args{regex} ||= qr{\[(\w+)\]};

	if($args{_args}){
	   *{caller().'::'.$args{fill}.'_args'} = \%args;
	   *{caller().'::'.$args{fill}} =
	       sub($;$){
		my $result = $_[0];
		$result =~ s/$args{regex}/$args{hashref}->{$1}/g;
		$result;
	       };
	   return;
	};

	*{caller().'::'.$args{fill}} =
	   makesub(@args{qw/regex hashref/});
};

sub makesub{
	my ($regex, $default_hr) = @_;
	   sub($;$){
		my ($result, $hr) = @_;
		$hr ||= $default_hr;
		$result =~ s/$regex/$hr->{$1}/g;
		$result;
	   };
};




1;
__END__