| 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; | ||||||