File Coverage

blib/lib/Minilla/CLI/Help.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package Minilla::CLI::Help;
2 1     1   8 use strict;
  1         2  
  1         30  
3 1     1   20 use warnings;
  1         2  
  1         22  
4 1     1   5 use utf8;
  1         2  
  1         6  
5              
6             sub run {
7 0     0 0   my ($self, @args) = @_;
8              
9 0 0         my $module = $args[0] ? ( "Minilla::CLI::" . ucfirst $args[0] ) : "Minilla";
10 0           system "perldoc", $module;
11             }
12              
13             1;
14             __END__