File Coverage

inc/My/Module/Test/Mock_App.pm
Criterion Covered Total %
statement 17 22 77.2
branch n/a
condition 1 2 50.0
subroutine 7 8 87.5
pod 4 4 100.0
total 29 36 80.5


line stmt bran cond sub pod time code
1             package My::Module::Test::Mock_App;
2              
3 4     4   73417 use 5.008;
  4         15  
4              
5 4     4   22 use strict;
  4         7  
  4         96  
6 4     4   20 use warnings;
  4         6  
  4         114  
7              
8 4     4   19 use Carp;
  4         6  
  4         1065  
9              
10             our $VERSION = '0.052';
11              
12             sub isa {
13 5     5 1 16 my ( undef, $class ) = @_;
14             return {
15             'Astro::App::Satpass2' => 1,
16             __PACKAGE__, 1,
17 5   50     54 }->{$class} || 0;
18             }
19              
20             sub new {
21 4     4 1 1998 my ( $class, %self ) = @_;
22 4         18 return bless \%self, $class;
23             }
24              
25             sub get {
26 10     10 1 27 my ( $self, $name ) = @_;
27 10         46 return $self->{$name};
28             }
29              
30             sub set {
31 0     0 1   my ( $self, @args ) = @_;
32 0           while ( @args ) {
33 0           my ( $name, $value ) = splice @args, 0, 2;
34 0           $self->{$name} = $value;
35             }
36 0           return $self;
37             }
38              
39              
40             1;
41              
42             __END__