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   435 use strict;
  61         115  
  61         1821  
3 61     61   299 use warnings;
  61         111  
  61         1592  
4 61     61   295 use utf8;
  61         104  
  61         284  
5              
6 61     61   1267 use Carp ();
  61         103  
  61         2051  
7              
8             package Minilla::Error::CommandExit;
9              
10 61     61   1461 use overload '""' => 'message', fallback => 1;
  61         1044  
  61         366  
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