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

#!/usr/bin/perl

package Devel::REPL::Error;
use Moo;
use MooX::Types::MooseLike::Base qw(Str Object AnyOf);

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

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

has message => (
  isa => AnyOf[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;
e2d0b019	4	use Moo;
e2d0b019	5	use MooX::Types::MooseLike::Base qw(Str Object AnyOf);
19ba909c	6
	7	# FIXME get nothingmuch to refactor and release his useful error object
	8
	9	has type => (
e2d0b019	10	isa => Str,
19ba909c	11	is => "ro",
	12	required => 1,
	13	);
	14
	15	has message => (
e2d0b019	16	isa => AnyOf[Str, Object],
19ba909c	17	is => "ro",
	18	required => 1,
	19	);
	20
	21	sub stringify {
	22	my $self = shift;
	23
	24	sprintf "%s: %s", $self->type, $self->message;
	25	}
	26	__PACKAGE__
	27
	28	__END__