File Coverage

blib/lib/Error/TypeTiny/Compilation.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 1 2 50.0
subroutine 8 8 100.0
pod 3 3 100.0
total 27 28 96.4


line stmt bran cond sub pod time code
1             package Error::TypeTiny::Compilation;
2              
3 4     4   1059 use 5.008001;
  4         23  
4 4     4   26 use strict;
  4         19  
  4         81  
5 4     4   20 use warnings;
  4         7  
  4         176  
6              
7             BEGIN {
8 4     4   11 $Error::TypeTiny::Compilation::AUTHORITY = 'cpan:TOBYINK';
9 4         739 $Error::TypeTiny::Compilation::VERSION = '2.004000';
10             }
11              
12             $Error::TypeTiny::Compilation::VERSION =~ tr/_//d;
13              
14             require Error::TypeTiny;
15             our @ISA = 'Error::TypeTiny';
16              
17 4     4 1 826 sub code { $_[0]{code} }
18 1   50 1 1 6 sub environment { $_[0]{environment} ||= {} }
19 6     6 1 407 sub errstr { $_[0]{errstr} }
20              
21             sub _build_message {
22 2     2   3 my $self = shift;
23 2         7 sprintf( "Failed to compile source because: %s", $self->errstr );
24             }
25              
26             1;
27              
28             __END__