File Coverage

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


line stmt bran cond sub pod time code
1             package constant::Atom::Strict;
2             $constant::Atom::Strict::VERSION = '0.10';
3 1     1   24438 use 5.006;
  1         4  
  1         41  
4 1     1   6 use strict;
  1         1  
  1         28  
5 1     1   6 use warnings;
  1         2  
  1         34  
6              
7 1     1   1462 use parent 'constant::Atom';
  1         336  
  1         5  
8 1     1   59 use Carp;
  1         2  
  1         161  
9              
10              
11             sub tostring {
12 2     2 0 116 my($self) = @_;
13 2         5 my $class = ref($self);
14 2         360 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;