File Coverage

blib/lib/App/Dependencio.pm

Criterion	Covered	Total	%
statement	30	73	41.1
branch	0	20	0.0
condition	0	9	0.0
subroutine	10	15	66.6
pod	3	4	75.0
total	43	121	35.5

package App::Dependencio;
use base qw(App::Cmd::Simple);

use strict;
use warnings;
use File::Find;
use Cwd;
use Data::Dumper;
use IO::File;
use Term::ANSIColor;
use Text::Trim;
use Module::Load;
our $VERSION = '0.07';
my @mods_not_found = ();

sub opt_spec {
    return (
        [ "testdirs|t",  "Exclude dir named t (tests)" ],
        [ "verbose|v",  "Verbose output"],
        [ "cpanm|c",  "Automatic cpanm install missing modules"],
        # [ "cpanfile|f",  "outputs a list of modules to a cpanfile file"],
        [ "help|h",  "This help menu. (i am dependencio version $VERSION)"],
    );
}



sub validate_args {
    my ($self, $opt, $args) = @_;
    $self->usage_error("Bad command") if @$args;
    $self->usage if $opt->{help};
}



sub execute {
    my ($self, $opt, $args) = @_;
    our $opts = $opt;
    $self->checkDeps;
}



sub checkDeps{
    my ($self, $opt) = @_;
    our $cwd  = getcwd();
    my @dirs = ();
    our $opts;
    push (@dirs,$cwd);

    #print Dumper(@mods_not_found);
    print STDOUT colored ['bright_blue'], "Dependencio says: searching modules...\n";
    find(\&_openFiles, @dirs);



    foreach my $mod_not_found (@mods_not_found){
        print STDOUT colored ['bright_red'], "Dependencio says: module $mod_not_found not found\n";
        system "cpanm $mod_not_found" if $opts->{cpanm};

    }

    exit -1 if @mods_not_found;

}



sub _openFiles{
    our $opts;
    our $cwd;
    my $dir = $cwd.'/t';
    my $tests = 1;
    if( $dir eq $File::Find::dir and $opts->{testdirs}  ){
        $tests = 0;
    };


    #only open file types to search module declarations (.pm and .pl)
    if(-f && m/\.(pm|pl)$/ and $tests == 1){
        print STDOUT "* checking dependecies on $File::Find::name\n" if $opts->{verbose};
        my $file = $File::Find::name;
        my $fh = IO::File->new($file, O_RDONLY) or die 'I can not open file ', $file, ": $!";


        while ( my $line =  $fh->getline() ){
            #remove comments at the end of line like: use Foo::Bar; #this is foo
            $line=~s/#.*$//;
            #remove exports of func modules like: use Foo::Bar qw(meh)
            $line=~s/qw\(.*$//;
            #remove spaces at beginning and end of line and semicolon
            $line=~s/^\s+//;
            $line=~s/\s+$//;
            $line=~s/;//;

            while( $line =~ m/(use |require )[A-Z]{1}/g  ){
                $line=~s/(use |require )//;
                $line = trim($line);
                eval{ load $line };
                if($@) {
                    push( @mods_not_found, $line) unless grep{$_ eq $line} @mods_not_found;
                }
            }

        }

        $fh->close;
    }
}
1;



__END__