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   427 use strict;
  61         119  
  61         1888  
3 61     61   300 use warnings;
  61         112  
  61         1746  
4 61     61   304 use utf8;
  61         536  
  61         328  
5              
6 61     61   1417 use Carp ();
  61         107  
  61         2010  
7              
8             package Minilla::Error::CommandExit;
9              
10 61     61   1522 use overload '""' => 'message', fallback => 1;
  61         1095  
  61         342  
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