File Coverage

blib/lib/HTML/Template/Pro/Extension/IF_TERN.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	1	2	50.0
condition	0	3	0.0
subroutine	6	7	85.7
pod	0	3	0.0
total	29	40	72.5

package HTML::Template::Pro::Extension::IF_TERN;

$VERSION 			= "0.11";
sub Version 		{ $VERSION; }

use Carp;
use strict;

my %fields_parent   =
                (
                 );

sub init {
    my $self = shift;
    while (my ($key,$val) = each(%fields_parent)) {
        $self->{$key} = $self->{$key} || $val;
    }
}

sub get_filter {
    my $self = shift;
    return _get_filter($self);
}
sub _get_filter {
	my $self = shift;
	my @ret ;
	push @ret,\&_if_tern;
	return @ret;
}


sub _if_tern {
	my $template = shift;
	my $re_var		= q{\%(\S+?)\?(.*?)(\:(.*?))?\%};
	$$template =~ s{$re_var}{
		my $replace	= qq{$2};
		if (defined $3) {
			$replace	.= qq{$4};
		} else {
			$replace	.= q{};
		}
		$replace;
	}gse;
	return $$template;

}

1;