File Coverage

blib/lib/HTML/Template/Extension/DOC.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition	0	3	0.0
subroutine	6	7	85.7
pod	0	3	0.0
total	24	33	72.7

package HTML::Template::Extension::DOC;

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

use Carp;
use strict;

my %fields_parent 	=
			    (
			     );

my $re_var = q{
  <\s*                           	# first <
  [Tt][Mm][Pp][Ll]_[Dd][Oo][Cc]   	# interesting TMPL_DOC tag only
  \s*>                       		# this is H:T standard tag
  ((?:.*?)                        	# delete alla after here
<\s*\/[Tt][Mm][Pp][Ll]_[Dd][Oo][Cc]\s*>)};

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

sub push_filter {
    my $self = shift;
    push @{$self->{filter_internal}},@{_get_filter($self)};
}

sub _get_filter {
	my $self = shift;
	my @ret ;
	push @ret,\&_tmpl_doc;
	return \@ret;
}


# funzione filtro per aggiungere il tag
# da tenere fintanto che la nostra patch non sia inserita nella
# distribuzione standard del modulo
sub _tmpl_doc {
        my $template = shift;
        # handle the  tag
		$$template =~s{$re_var}{}xsg
}



1;