File Coverage

lib/CLI/Framework/Command/Meta.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 3 3 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package CLI::Framework::Command::Meta;
2 4     4   89 use base qw( CLI::Framework::Command );
  4         10  
  4         882  
3              
4             our $VERSION = 0.01;
5              
6             sub new {
7 3     3 1 10 my ($class, %args) = @_;
8 3         11 my $app = $args{app};
9 3         47 bless { _app => $app }, $class;
10             }
11              
12             # (metacommands know about their application (and thus, the other commands in
13             # the app))
14 3     3 1 12 sub get_app { $_[0]->{_app} }
15 3     3 1 17 sub set_app { $_[0]->{_app} = $_[1] }
16              
17             #-------
18             1;
19              
20             __END__