lib/Devel/REPL/Error.pm

   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 => (
  15   isa => "Str|Object",
  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__