File: | lib/Code/Statistics/App/Command/report.pm |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | 2 2 2 | 0 0 0 | use strict; | ||||
2 | 2 2 2 | 0 0 0 | use warnings; | ||||
3 | |||||||
4 | package Code::Statistics::App::Command::report; | ||||||
5 | |||||||
6 | # ABSTRACT: the shell command handler for stat reporting | ||||||
7 | |||||||
8 | 2 2 2 | 0 0 0 | use Code::Statistics::App -command; | ||||
9 | |||||||
10 | sub abstract { return 'create reports on statistics and output them' } | ||||||
11 | |||||||
12 | sub opt_spec { | ||||||
13 | my @opts = ( | ||||||
14 | [ 'quiet' => 'prevents writing of report to screen' ], | ||||||
15 | [ 'file_ignore=s' => 'list of regexes matching files that should be ignored in reporting ' ], | ||||||
16 | ); | ||||||
17 | return @opts; | ||||||
18 | } | ||||||
19 | |||||||
20 | sub execute { | ||||||
21 | my ( $self, $opt, $arg ) = @_; | ||||||
22 | |||||||
23 | return $self->cstat( %{$opt} )->report; | ||||||
24 | } | ||||||
25 | |||||||
26 | 1; |