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