File Coverage

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

Criterion	Covered	Total	%
statement	24	56	42.8
branch	0	10	0.0
condition	0	4	0.0
subroutine	8	10	80.0
pod	2	2	100.0
total	34	82	41.4

package App::TemplateCMD::Command::List;

# Created on: 2008-03-26 13:44:05
# 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/;

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

sub process {
    my ($self, $cmd, %option) = @_;
    my $out = '';

    my $filter = shift @{$option{files}};
    my $path   = $cmd->config->{path};
    my @path   = grep {-d $_} split /:/, $path;

    my @files = $cmd->list_templates();

    my @templates = uniq sort map {$_->{file}} @files;

    if ($filter) {
        @templates = grep {/$filter/} @templates;
    }

    $option{columns} ||= 6;

    my $files_per_col = @templates / $option{columns};
    $files_per_col = $files_per_col == int $files_per_col ? $files_per_col : int $files_per_col + 1;
    my @columns;
    my @max;

    for my $row ( 0 .. $files_per_col - 1 ) {
        for my $col ( 0 .. $option{columns} - 1 ) {
            next if !$templates[$row * $option{columns} + $col];
            push @{$columns[$col]}, $templates[$row * $option{columns} + $col];
            $max[$col] ||= 1;
            $max[$col] = length $templates[$row * $option{columns} + $col] if length $templates[$row * $option{columns} + $col] > $max[$col];
        }
    }

    for my $row ( 0 .. $files_per_col -1 ) {
        for my $col ( 0 .. $option{columns} - 1 ) {
            next if !$columns[$col][$row];
            $out .= $columns[$col][$row] . ' ' x ($max[$col] + 1 - length $columns[$col][$row]);
        }
        $out .= "\n";
    }

    return $out;
}

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

    return <<"HELP";
$0 list [filter]

filter   An optional regular expression to show only templates that match.

Lists all the templates that can be found, optionally limited by the regular
expression filter.
HELP
}

1;

__END__