File Coverage

blib/lib/DMTF/CIM/Instance/Property.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 22 77.2


line stmt bran cond sub pod time code
1             package DMTF::CIM::Instance::Property;
2              
3 1     1   3 use warnings;
  1         2  
  1         21  
4 1     1   4 use strict;
  1         1  
  1         26  
5              
6 1     1   3 use version;
  1         2  
  1         5  
7             our $VERSION = qv('0.04');
8             require DMTF::CIM::_valued;
9              
10             our @ISA=qw(DMTF::CIM::_valued);
11 1     1   71 use Carp;
  1         7  
  1         159  
12              
13             # Module implementation here
14             sub new
15             {
16 0     0 1   my $class=shift;
17 0           my %args=@_;
18 0           my $self=DMTF::CIM::_valued::new($class, parent=>$args{parent}, data=>$args{property}, value=>$args{value});
19 0           return($self);
20             }
21              
22             1; # Magic true value required at end of module
23             __END__