File Coverage

blib/lib/Data/CompactReadonly/V0/NegativeScalar.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Data::CompactReadonly::V0::NegativeScalar;
2             our $VERSION = '0.1.0';
3              
4 2     2   17 use warnings;
  2         4  
  2         66  
5 2     2   10 use strict;
  2         4  
  2         42  
6 2     2   10 use base 'Data::CompactReadonly::V0::Scalar';
  2         3  
  2         322  
7              
8             sub _init {
9 10     10   36 my($class, %args) = @_;
10 10         51 return -1 * $class->SUPER::_init(%args);
11             }
12              
13             1;