File Coverage

blib/lib/App/TemplateCMD/Command/Help.pm

Criterion	Covered	Total	%
statement	27	65	41.5
branch	0	12	0.0
condition	0	9	0.0
subroutine	9	13	69.2
pod	4	4	100.0
total	40	103	38.8

package App::TemplateCMD::Command::Help;

# Created on: 2008-03-26 13:58:38
# Create by:  ivanw
# $Id$
# $Revision$, $HeadURL$, $Date$
# $Revision$, $Source$, $Date$

use strict;
use warnings;
use version;
use Carp;
use List::MoreUtils qw/uniq/;
use Data::Dumper qw/Dumper/;
use English qw/ -no_match_vars /;
use base qw/App::TemplateCMD::Command/;
use File::Glob;

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

sub process {

    my ( $self, $cmd, %option ) = @_;
    my $out;
    my $config = $cmd->config;

    my $command = shift @{ $option{files} };
    my $module;

    if ($command) {
        $module = eval { $cmd->load_cmd($command) };
    }
    if ($module) {
        $out  = $module->help() if $module->can('help');
        $out .= $module->HELP() if $module->can('HELP');

        $out ||= "No help found for $command\n";
    }
    elsif ( $command && $self->can($command) && $command ne 'process' ) {
        $out = $self->$command();
    }
    else {

        my @cmds = sort $self->commands();
        my $cmds = '';

        for my $name (@cmds) {
            my @aliases = sort {length $b <=> length $a} grep { $config->{aliases}{$_} eq lc $name } keys %{ $config->{aliases} };
            $cmds .= '    ' . lc $name;
            $cmds .= ' (' . ( join ', ', @aliases ) . ')' if @aliases;
            $cmds .= "\n";
        }

        $out = <<"OUT";
usage: templatecmd  [options] [args]
App::TemplateCMD command-line template system, version $App::TemplateCMD::VERSION.
Type 'templatecmd help ' for help on a specific command.
Type 'templatecmd --version' to see the program version.

Available commands:
$cmds

App::TemplateCMD is a command-line interface to Perl's Template Toolkit (TT) templating
system. For help with creating TT templates see 'perldoc Template'
OUT
    }

    return $out;
}

sub commands {
    my ($self) = @_;

    my @cmds;
    my $cmd_path = 'App/TemplateCMD/Command';

    for my $path (@INC) {
        my @modules = glob("$path/$cmd_path/*.pm");
        for my $module (@modules) {
            $module =~ s{^ $path / $cmd_path / (.*) [.]pm $}{$1}xms;
            push @cmds, $module;
        }
    }

    return uniq @cmds;
}

sub help {
    my ($self) = @_;

    return <<"HELP";

HELP
}

sub templates {
    return <<"HELP";
Templates

App::TemplateCMD uses Template Toolkit as its templateing engine the individual
templates can be found in the directories specified by the "$0 config -v"
command.

When the templates are passed any --args value specified on the command line
is passed to the template along with values specified by the config file(s)
found. Certain values are over ridden by the program each time it is run
such as the date and time values.

...
HELP
}

1;

__END__