Commit | Line | Data |
---|---|---|
19ba909c | 1 | package Devel::REPL::Error; |
6f4f9516 | 2 | |
19ba909c | 3 | use Moose; |
1d6c2dbc | 4 | use namespace::autoclean; |
19ba909c | 5 | |
6 | # FIXME get nothingmuch to refactor and release his useful error object | |
7 | ||
8 | has type => ( | |
9 | isa => "Str", | |
10 | is => "ro", | |
11 | required => 1, | |
12 | ); | |
13 | ||
14 | has message => ( | |
462bad8f | 15 | isa => "Str|Object", |
19ba909c | 16 | is => "ro", |
17 | required => 1, | |
18 | ); | |
19 | ||
20 | sub stringify { | |
21 | my $self = shift; | |
22 | ||
23 | sprintf "%s: %s", $self->type, $self->message; | |
24 | } | |
25 | __PACKAGE__ | |
26 | ||
27 | __END__ |