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

#!/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|Object",
  is  => "ro",
  required => 1,
);

sub stringify {
  my $self = shift;

  sprintf "%s: %s", $self->type, $self->message;
}
__PACKAGE__

__END__
Commit	Line	Data
19ba909c	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 => (
462bad8f	15	isa => "Str\|Object",
19ba909c	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__