File Coverage

blib/lib/Data/Mapper/Class.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition 2 5 40.0
subroutine 4 4 100.0
pod 0 1 0.0
total 19 24 79.1


line stmt bran cond sub pod time code
1             package Data::Mapper::Class;
2 3     3   1513 use strict;
  3         6  
  3         95  
3 3     3   15 use warnings;
  3         6  
  3         65  
4 3     3   22 use Carp ();
  3         5  
  3         231  
5              
6             sub new {
7 4     4 0 4311 my ($class, $args) = @_;
8 4 50 33     18 Carp::croak '$args must be a HashRef' if $args && ref $args ne 'HASH';
9 4   50     34 bless $args || {}, $class;
10             }
11              
12             !!1;