view release on metacpan or  search on metacpan

lib/Code/Statistics/App/Command.pm  view on Meta::CPAN

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use warnings;
 
package Code::Statistics::App::Command;
$Code::Statistics::App::Command::VERSION = '1.190680';
# ABSTRACT: base class for commands
 
use App::Cmd::Setup -command;
 
 
sub cstat {
    return shift->app->cstat( @_ );
}
 
1;
 
__END__
 
=pod
 
=encoding UTF-8

lib/Code/Statistics/App/Command/collect.pm  view on Meta::CPAN

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
        [ 'foreign_paths=s' => 'file paths in dump are printed in indicated system format; see File::Spec' ],
        [ 'targets=s' => 'specifies targets that will be looked for inside of files; see C::S::Target::*' ],
        [ 'metrics=s' => 'specifies metrics that be tried to be measured on targets; see C::S::Metric::*' ],
    );
    return @opts;
}
 
sub execute {
    my ( $self, $opt, $arg ) = @_;
 
    return $self->cstat( %{$opt} )->collect;
}
 
1;
 
__END__
 
=pod
 
=encoding UTF-8

lib/Code/Statistics/App/Command/report.pm  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    my @opts = (
        [ 'quiet' => 'prevents writing of report to screen' ],
        [ 'file_ignore=s' => 'list of regexes matching files that should be ignored in reporting ' ],
    );
    return @opts;
}
 
sub execute {
    my ( $self, $opt, $arg ) = @_;
 
    return $self->cstat( %{$opt} )->report;
}
 
1;
 
__END__
 
=pod
 
=encoding UTF-8