Commit | Line | Data |
---|---|---|
19ba909c | 1 | #!/usr/bin/perl |
2 | ||
3 | package Devel::REPL::Error; | |
4 | use Moose; | |
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__ |