File Coverage

samples/2-options/lib/Derived.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2             package
3             Derived;
4 1     1   669 use strict;
  1         17  
  1         44  
5 1     1   7 use warnings;
  1         3  
  1         77  
6              
7             sub MY () {__PACKAGE__}
8              
9 1     1   622 use File::AddInc;
  1         2872  
  1         5  
10 1     1   246 use base qw(Greetings_oo_modulino_with_fields);
  1         2  
  1         544  
11 1     1   10 use fields qw/width height/;
  1         2  
  1         6  
12              
13             unless (caller) {
14             my $self = MY->new(name => 'world', MY->SUPER::_parse_posix_opts(\@ARGV));
15              
16             my $cmd = shift
17             or die "Usage: $0 COMMAND ARGS...\n";
18              
19             print $self->$cmd(@ARGV), "\n";
20             }
21              
22             1;