File Coverage

blib/lib/App/CmdDirs.pm

Criterion	Covered	Total	%
statement	39	42	92.8
branch	5	8	62.5
condition	3	6	50.0
subroutine	8	8	100.0
pod	0	3	0.0
total	55	67	82.0

package App::CmdDirs;
use strict;
use warnings;

use Cwd;

use App::CmdDirs::Traverser::Base;

our $VERSION;
BEGIN {
    $VERSION = '1.02';
}

sub new {
    my ($class, $argv, $options) = @_;

    my $self = {};
    $self->{'argv'} = $argv;
    $self->{'options'} = $options;
    bless $self, $class;

    return $self;
}

# Find directories to act upon, choose a traverser, and go
sub run {
    my ($self) = @_;

    # Pull working dir & post-option arguments
    my $topDir = cwd();
    my @argv = @{$self->{'argv'}};
    my $command = $argv[0];
    my @dirs;

    # Get any dirs passed on the command line
    foreach (my $x = 1; $x < scalar(@argv); $x++) {
        push @dirs, $argv[$x];
    }

    # No directories passed, glob all
    if ($#dirs == -1) {
        @dirs = glob '*';
    }

    my $traverser = $self->getTraverser($command, $topDir, \@dirs);

    $traverser->traverse($self->{'options'}->{'quiet'});

    return 1;
}

# Create a traverser for specific command types
sub getTraverser {
    my ($self, $command, $topDir, $dirs) = @_;
    my $traverser;

    if ($self->{'options'}{'all'}) {
        $traverser = App::CmdDirs::Traverser::Base->new($command, $topDir, $dirs);
    } elsif ($self->{'options'}->{'git'} || $command =~ /git/) {
        require App::CmdDirs::Traverser::Git;
        $traverser = App::CmdDirs::Traverser::Git->new($command, $topDir, $dirs);
    } elsif ($self->{'options'}->{'svn'} || $command =~ /svn/) {
        require App::CmdDirs::Traverser::Subversion;
        $traverser = App::CmdDirs::Traverser::Subversion->new($command, $topDir, $dirs);
    } else {
        $traverser = App::CmdDirs::Traverser::Base->new($command, $topDir, $dirs);
    }

    return $traverser;
}

1;