File Coverage

blib/lib/App/Zealc/Command.pm
Criterion Covered Total %
statement 15 20 75.0
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 21 27 77.7


line stmt bran cond sub pod time code
1             package App::Zealc::Command;
2              
3 1     1   554 use 5.014000;
  1         2  
  1         30  
4 1     1   3 use strict;
  1         1  
  1         22  
5 1     1   4 use warnings;
  1         1  
  1         32  
6              
7             our $VERSION = '0.000_001';
8              
9 1     1   399 use parent qw/App::Cmd::Command/;
  1         240  
  1         5  
10 1     1   404 use App::Zealc::UsageExtractor;
  1         2  
  1         95  
11              
12             sub description {
13 0     0 1   my ($self) = @_;
14 0           my ($file) = (ref $self) =~ s,::,/,gr;
15 0           my $parser = App::Zealc::UsageExtractor->new;
16 0           $parser->parse_file($INC{"$file.pm"});
17 0           return $parser->usage
18             }
19              
20             1;
21             __END__