File Coverage

blib/lib/Template/Extract.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch			n/a
condition	1	3	33.3
subroutine	12	12	100.0
pod	4	5	80.0
total	61	64	95.3

package Template::Extract;
$Template::Extract::VERSION = '0.41';

use 5.006;
use strict;
use warnings;
use constant RUN_CLASS     => ( __PACKAGE__ . '::Run' );
use constant COMPILE_CLASS => ( __PACKAGE__ . '::Compile' );
use constant PARSER_CLASS  => ( __PACKAGE__ . '::Parser' );

our ( $DEBUG, $EXACT );

sub new {
    my $self = shift;
    my $class = ref($self) || $self;

    my $run_class     = $class->RUN_CLASS;
    my $compile_class = $class->COMPILE_CLASS;
    my $parser_class  = $class->PARSER_CLASS;

    foreach my $subclass ( $run_class, $compile_class, $parser_class ) {
        no strict 'refs';
        $class->load($subclass);
        *{"$subclass\::DEBUG"} = *DEBUG;
        *{"$subclass\::EXACT"} = *EXACT;
    }

    bless(
        {
            run_object     => $run_class->new(@_),
            compile_object => $compile_class->new(@_),
            parser_object  => $parser_class->new(@_),
        },
        $class
    );
}

sub load {
    my ( $self, $class ) = @_;
    $class =~ s{::}{/}g;
    require "$class.pm";
}

sub extract {
    my $self     = shift;
    my $template = shift;

    $self->run( $self->compile($template), @_ );
}

sub compile {
    my $self     = shift;
    my $template = shift;
    $self->{compile_object}->compile( $template, $self->{parser_object} );
}

sub run {
    my $self = shift;
    $self->{run_object}->run(@_);
}

1;

__END__