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