File Coverage

blib/lib/App/TemplateCMD/Command.pm

Criterion	Covered	Total	%
statement	21	47	44.6
branch	0	12	0.0
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	31	72	43.0

package App::TemplateCMD::Command;

# Created on: 2008-09-04 04:26:46
# Create by:  ivan
# $Id$
# $Revision$, $HeadURL$, $Date$
# $Revision$, $Source$, $Date$

use strict;
use warnings;
use version;
use Carp;
use Data::Dumper qw/Dumper/;
use English qw/ -no_match_vars /;
use base qw/Exporter/;

our $VERSION     = version->new('0.6.11');
our @EXPORT_OK   = qw//;
our %EXPORT_TAGS = ();
#our @EXPORT      = qw//;

sub args {
    return (
        'path|p=s',
    );
}

sub default {
}

sub get_template {

    my ($self, $template, $cmd) = @_;

    # try to get the template directly by name
    for my $provider (@{ $cmd->{providers} }) {
        if ($provider->{INCLUDE_PATH}) {
            for my $path (@{ $provider->{INCLUDE_PATH} }) {
                my ($data, $error) = $provider->_load( "$path/$template" );

                if ($data->{text}) {
                    # return the found template info
                    return ($data, $provider, $error, [$template]);
                }
            }
        }
        else {
            my ($data, $error) = $provider->_load( $template );

            if ($data->{text}) {
                # return the found template info
                return ($data, $provider, $error, [$template]);
            }
        }

        if ($cmd->{verbose}) {
            print "$template was not found with provider " . ( ref $provider ) . "\n";
        }
    }

    # now try to get the template assumin it is missing its suffix
    my @files = map {$_->{file}} $cmd->list_templates();

    # get all templates that start with the template name provided
    my @templates = grep { m{^$template [.] .+ $}xms } @files;

    if (@templates) {
        for my $provider (@{ $cmd->{providers} }) {
            my ($data, $error) = $provider->_load( $templates[0] );

            if ($data->{text}) {
                # return the found template info
                return ($data, $provider, $error, \@templates);
            }
        }
    }

    # no template found
    croak "The template $template was not found!";
}

1;

__END__