File Coverage

blib/lib/CracTools/App/Command.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package CracTools::App::Command;
2             {
3             $CracTools::App::Command::DIST = 'CracTools';
4             }
5             # ABSTRACT: base class for cractools commands
6             $CracTools::App::Command::VERSION = '1.22';
7 1     1   840 use App::Cmd::Setup -command;
  1         2  
  1         7  
8              
9             #sub opt_spec {
10             # my ( $class, $app ) = @_;
11             # return (
12             # [ 'help' => "this usage screen" ],
13             # $class->options($app),
14             # )
15             #}
16             #
17             #sub validate_args {
18             # my ( $self, $opt, $args ) = @_;
19             # if ( $opt->{help} ) {
20             # my ($command) = $self->command_names;
21             # $self->app->execute_command(
22             # $self->app->prepare_command("help", $command)
23             # );
24             # exit;
25             # }
26             # $self->validate( $opt, $args );
27             #}
28              
29             1;
30              
31             __END__