File Coverage

blib/lib/constant/Atom/Strict.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package constant::Atom::Strict;
2             $constant::Atom::Strict::VERSION = '0.11';
3 1     1   71821 use 5.006;
  1         12  
4 1     1   5 use strict;
  1         2  
  1         20  
5 1     1   5 use warnings;
  1         10  
  1         32  
6              
7 1     1   543 use parent 'constant::Atom';
  1         301  
  1         5  
8 1     1   54 use Carp;
  1         2  
  1         126  
9              
10              
11             sub tostring {
12 2     2 0 129 my($self) = @_;
13 2         5 my $class = ref($self);
14 2         296 croak "Can't cast $class object '".$$self."' into a string. Use the 'fullname' method for a string representation of this object";
15             }
16              
17             1;