File Coverage

blib/lib/Template/Process.pm

Criterion	Covered	Total	%
statement	51	55	92.7
branch	7	18	38.8
condition	1	8	12.5
subroutine	12	13	92.3
pod	3	3	100.0
total	74	97	76.2

package Template::Process;

use 5;
use strict;
use warnings;

our $VERSION = '0.0006';
$VERSION = eval $VERSION;

use base qw(Class::Accessor);
Template::Process->mk_accessors(qw(tt));

use Carp qw(carp croak);
use Template;
use Data::IO;

sub new {
    return shift->SUPER::new({ tt => Template->new });
}

=begin private

=item B<_process>

    $tt->_process(TT => $tt, DATA => \@hashes, OUT => $handle);

=end private

=cut

sub _process {
    my $self = shift;
    my %args = @_;
#    warn YAML::Dump \%args;
    my $tt = $args{TT};
    my $out = $args{OUT} || \*STDOUT;
    my @data;
    @data = ref $args{DATA} ?  @{$args{DATA}} : ($args{DATA});
    my %data;
    %data = (%data, %$_) for @data;
    return $self->tt->process($tt, \%data, $out);
}

sub _io { # this works only for $] >= 5.8
    open my $io, '>', shift
        or croak "can't open in-core file: $!";
    return $io;
}

sub process {
    my $self = shift;
    my %args = @_;
#    warn YAML::Dump \%args;
    my $tt = $args{TT};
    my $reader = Data::IO->new;

    my @data;
    my @args = defined $args{DATA} ?
               (ref $args{DATA} ? @{$args{DATA}} : ($args{DATA})) :
               ();
    for (@args) {
        if (ref $_) { # perl data already
            push @data, $_;
        } elsif (-f && /\.ya?ml$/) {
            push @data, $reader->_read_yaml($_);
        } elsif (-f && /\.PL$/i) {
            push @data, $reader->_read_perl($_);
        } else {
            carp "'$_' ignored: unkown format\n";
        }
    }

    my $out = $args{OUT};
    $out = _io($out) if (ref $out eq 'SCALAR');
    $out = \*STDOUT unless $out;

    return $self->_process(TT => $tt, DATA => \@data, OUT => $out);

}

sub error { return shift->tt->error }

1;

__END__