File Coverage

blib/lib/C/Template.pm

Criterion	Covered	Total	%
statement	42	43	97.6
branch	6	8	75.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	59	62	95.1

package C::Template;
use warnings;
use strict;
our $VERSION = '0.05';

use Template;
use Template::Filters;
use Carp;
use C::Utility qw/convert_to_c_string convert_to_c_string_pc add_lines/;
use FindBin;

my $filters = Template::Filters->new ({
    FILTERS => {
        # Convert but do not convert % -> %%
        'c' => \&convert_to_c_string,
        # Convert with additionally % -> %%
        'cpc' => \&convert_to_c_string_pc,
    },
});

sub new
{
    my ($package, $options) = @_;
    my $o = {};
    $o->{include_path} = ['.', $FindBin::Bin, $options->{include_path}];
    my $tt = Template->new (
        ABSOLUTE => 1,
        INCLUDE_PATH => $o->{include_path},
#        STRICT => 1,
        ENCODING => 'utf8',
        LOAD_FILTERS => $filters,
    );
    $o->{tt} = $tt;
    bless $o;
    return $o;
}

sub process
{
    my ($o, $in, $vars_ref, $out) = @_;
    my $input = $in;
    my $text;
    if (! ref $in) {
        if (! -f $in) {
            for my $dir (@{$o->{include_path}}) {
                my $in_dir = "$dir/$in";
                if (-f $in_dir) {
                    $in = $in_dir;
                    goto found;
                }
            }
            croak "Input file $in not found";
        }
        found:
        $text = add_lines ($in);
        $input = \$text;
    }
#    print "$input $text $out @{$vars_ref->{fixed_texts}}\n";
    $o->{tt}->process ($input, $vars_ref, $out, {binmode => 'utf8'})
        or die ''. $o->{tt}->error ();
}

1;

__END__