-#!/usr/bin/perl
-
package Devel::REPL::Error;
+
+our $VERSION = '1.003028';
+
use Moose;
+use namespace::autoclean;
# FIXME get nothingmuch to refactor and release his useful error object
);
has message => (
- isa => "Str",
+ isa => "Str|Object",
is => "ro",
required => 1,
);
sprintf "%s: %s", $self->type, $self->message;
}
__PACKAGE__
-
-__END__