[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Error.pm

package Devel::REPL::Error;

our $VERSION = '1.003027';

use Moose;
use namespace::autoclean;

# FIXME get nothingmuch to refactor and release his useful error object

has type => (
  isa => "Str",
  is  => "ro",
  required => 1,
);

has message => (
  isa => "Str|Object",
  is  => "ro",
  required => 1,
);

sub stringify {
  my $self = shift;

  sprintf "%s: %s", $self->type, $self->message;
}
__PACKAGE__
Commit	Line	Data
19ba909c	1	package Devel::REPL::Error;
6f4f9516	2
54beb05d	3	our $VERSION = '1.003027';
54beb05d	4
19ba909c	5	use Moose;
1d6c2dbc	6	use namespace::autoclean;
19ba909c	7
	8	# FIXME get nothingmuch to refactor and release his useful error object
	9
	10	has type => (
	11	isa => "Str",
	12	is => "ro",
	13	required => 1,
	14	);
	15
	16	has message => (
462bad8f	17	isa => "Str\|Object",
19ba909c	18	is => "ro",
	19	required => 1,
	20	);
	21
	22	sub stringify {
	23	my $self = shift;
	24
	25	sprintf "%s: %s", $self->type, $self->message;
	26	}
	27	__PACKAGE__