From: nothingmuch <nothingmuch@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Tue, 6 May 2008 07:49:51 +0000 (+0000)
Subject: Devel::REPL::Error
X-Git-Tag: v1.003015~121
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19ba909cb312f706f9275b61c55367298e031fce;p=p5sagit%2FDevel-REPL.git

Devel::REPL::Error

git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@4341 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/lib/Devel/REPL/Error.pm b/lib/Devel/REPL/Error.pm
new file mode 100644
index 0000000..b28d5b5
--- /dev/null
+++ b/lib/Devel/REPL/Error.pm
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+package Devel::REPL::Error;
+use Moose;
+
+# FIXME get nothingmuch to refactor and release his useful error object
+
+has type => (
+  isa => "Str",
+  is  => "ro",
+  required => 1,
+);
+
+has message => (
+  isa => "Str",
+  is  => "ro",
+  required => 1,
+);
+
+sub stringify {
+  my $self = shift;
+
+  sprintf "%s: %s", $self->type, $self->message;
+}
+__PACKAGE__
+
+__END__