File Coverage

blib/lib/NG/Object.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 20 60.0


line stmt bran cond sub pod time code
1             package Object;
2              
3 1     1   7 use strict;
  1         2  
  1         37  
4 1     1   5 use warnings;
  1         2  
  1         31  
5 1     1   1206 use Data::Dumper qw(Dumper);
  1         12723  
  1         152  
6              
7             sub new {
8 0     0 0   my $pkg = shift;
9 0           return bless {}, $pkg;
10             }
11              
12             sub dump {
13 0     0 0   my $self = shift;
14 0           return Dumper($self);
15             }
16              
17             1;