X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FError.pm;h=f20c587db91bf3aa354e092072d0d88a8f6c118e;hp=b28d5b543355d7651a1b8845d99899cf8373404a;hb=HEAD;hpb=19ba909cb312f706f9275b61c55367298e031fce diff --git a/lib/Devel/REPL/Error.pm b/lib/Devel/REPL/Error.pm index b28d5b5..f20c587 100644 --- a/lib/Devel/REPL/Error.pm +++ b/lib/Devel/REPL/Error.pm @@ -1,7 +1,9 @@ -#!/usr/bin/perl - package Devel::REPL::Error; + +our $VERSION = '1.003030'; + use Moose; +use namespace::autoclean; # FIXME get nothingmuch to refactor and release his useful error object @@ -12,7 +14,7 @@ has type => ( ); has message => ( - isa => "Str", + isa => "Str|Object", is => "ro", required => 1, ); @@ -23,5 +25,3 @@ sub stringify { sprintf "%s: %s", $self->type, $self->message; } __PACKAGE__ - -__END__