package Minilla::Errors;
use strict;
use warnings;
use utf8;

use Carp ();

package Minilla::Error::CommandExit;

use overload '""' => 'message', fallback => 1;

sub throw {
    my ($class, $body) = @_;
    my $self = bless { body => $body, message => Carp::longmess($class) }, $class;
    die $self;
}

sub body { shift->{body} }

sub message {
    my($self) = @_;
    return $self->{message};
}

1;