1package Minilla::Errors; 2use strict; 3use warnings; 4use utf8; 5 6use Carp (); 7 8package Minilla::Error::CommandExit; 9 10use overload '""' => 'message', fallback => 1; 11 12sub throw { 13 my ($class, $body) = @_; 14 my $self = bless { body => $body, message => Carp::longmess($class) }, $class; 15 die $self; 16} 17 18sub body { shift->{body} } 19 20sub message { 21 my($self) = @_; 22 return $self->{message}; 23} 24 251; 26 27