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   1004 use 5.008001;
  4         13  
4 4     4   22 use strict;
  4         17  
  4         79  
5 4     4   17 use warnings;
  4         8  
  4         191  
6              
7             BEGIN {
8 4     4   11 $Error::TypeTiny::Compilation::AUTHORITY = 'cpan:TOBYINK';
9 4         782 $Error::TypeTiny::Compilation::VERSION = '2.002001';
10             }
11              
12             $Error::TypeTiny::Compilation::VERSION =~ tr/_//d;
13              
14             require Error::TypeTiny;
15             our @ISA = 'Error::TypeTiny';
16              
17 4     4 1 741 sub code { $_[0]{code} }
18 1   50 1 1 5 sub environment { $_[0]{environment} ||= {} }
19 6     6 1 528 sub errstr { $_[0]{errstr} }
20              
21             sub _build_message {
22 2     2   4 my $self = shift;
23 2         5 sprintf( "Failed to compile source because: %s", $self->errstr );
24             }
25              
26             1;
27              
28             __END__