File Coverage

blib/lib/Minilla/Errors.pm
Criterion Covered Total %
statement 15 21 71.4
branch n/a
condition n/a
subroutine 5 8 62.5
pod n/a
total 20 29 68.9


line stmt bran cond sub pod time code
1             package Minilla::Errors;
2 61     61   420 use strict;
  61         119  
  61         1834  
3 61     61   302 use warnings;
  61         118  
  61         1673  
4 61     61   307 use utf8;
  61         110  
  61         298  
5              
6 61     61   1270 use Carp ();
  61         99  
  61         2047  
7              
8             package Minilla::Error::CommandExit;
9              
10 61     61   1505 use overload '""' => 'message', fallback => 1;
  61         1095  
  61         357  
11              
12             sub throw {
13 0     0     my ($class, $body) = @_;
14 0           my $self = bless { body => $body, message => Carp::longmess($class) }, $class;
15 0           die $self;
16             }
17              
18 0     0     sub body { shift->{body} }
19              
20             sub message {
21 0     0     my($self) = @_;
22 0           return $self->{message};
23             }
24              
25             1;
26