File Coverage

blib/lib/Config/Maker/Driver.pm

Criterion	Covered	Total	%
statement	71	72	98.6
branch	15	20	75.0
condition	4	6	66.6
subroutine	14	14	100.0
pod	0	3	0.0
total	104	115	90.4

package Config::Maker::Driver;

use utf8;
use warnings;
use strict;

use Carp;
use Parse::RecDescent;

use Config::Maker;
use Config::Maker::Encode;
use Config::Maker::Option;
use Config::Maker::Path;
use Config::Maker::Tee;

my $parser = $Config::Maker::parser;

sub apply {
    for my $e (@_) {
	if(ref $e eq 'CODE') {
	    $e->();
	} elsif(ref $e) {
	    $e->do();
	} else {
	    print $e;
	}
    }
}

sub process {
    my ($class, $file, $config, $outfh, $outenc) = @_;

    croak "Invalid config!"
	unless UNIVERSAL::isa($config, 'Config::Maker::Config');

    local $Config::Maker::Eval::config = $config;
    local $_ = $config->{root};

    my ($code, $enc) = $class->load($file);

    $outenc ||= $enc;
    encmode($outfh, $outenc);

    LOG("Processing the template with output in $outenc");
    my $old = select;
    select $outfh;
    eval { $code->() };
    select $old;
    die $@ if $@;
}

our %cache;

sub load {
    my ($class, $file) = @_;
    my ($fh, $text);
    my $enc = 'system';

    $file = Config::Maker::locate($file);

    if($cache{$file}) {
	DBG "Getting template $file from cache";
	return wantarray ? @{$cache{$file}} : $cache{$file}[0];
    }

    open($fh, '<', $file)
	or croak "Failed to open $file: $!";
    {
	local $/;
	$text = <$fh>;
    }
    close $fh;

    if((substr($text, 0, 250) =~ /\[#[^#]*$Config::Maker::fenc([[:alnum:]_-]+)/) ||
       (substr($text, -250)   =~ /\[#[^#]*$Config::Maker::fenc([[:alnum:]_-]+)/)) {
       $enc = $1;
    }
    $text = decode($enc, $text);

    LOG("Loading template $file encoded $enc");
    my $out = $parser->template($text);
    croak "Template file $file contained errors"
	unless defined $out;

    my $code = sub { apply(@$out); };
    $cache{$file} = [$code, $enc];
    return wantarray ? ($code, $enc) : $code;
}

1;

__END__