File Coverage

blib/lib/App/datasection/Command.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	39	41	95.1

use warnings;
use 5.020;
use experimental qw( signatures );
use stable qw( postderef );
use true;

package App::datasection::Command 0.01 {

    # ABSTRACT: Base class for datasection subcommands
    # VERSION


    use App::Cmd::Setup -command;

    sub opt_spec {
        return (
            [ "dir|d=s" => "Directory to extract to" ],
        );
    }

    sub validate_args ($self, $opt, $args) {
        my(@files) = @$args;
        $self->usage_error("Perl source files are required") unless @files;
        foreach my $file (@files) {
            $self->usage_error("No such file $file") unless -f $file;
        }
    }

}

__END__