File Coverage

blib/lib/App/makebeamerinfo/CLI.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             package App::makebeamerinfo::CLI;
2              
3 1     1   2091 use strict;
  1         3  
  1         52  
4 1     1   5 use warnings;
  1         2  
  1         32  
5              
6 1     1   5 use App::makebeamerinfo;
  1         2  
  1         111  
7             our @ISA = qw/App::makebeamerinfo/;
8              
9             sub userMessage {
10 0     0 0   my $self = shift;
11 0           my ($title, $message) = @_;
12 0           print "$title:\n$message\n";
13             }
14              
15             1;
16