File Coverage

blib/lib/Devel/REPL/Error.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 12 66.6


line stmt bran cond sub pod time code
1             package Devel::REPL::Error;
2              
3             our $VERSION = '1.003027';
4              
5 2     2   9 use Moose;
  2         2  
  2         16  
6 2     2   15375 use namespace::autoclean;
  2         6  
  2         22  
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 => (
17             isa => "Str|Object",
18             is => "ro",
19             required => 1,
20             );
21              
22             sub stringify {
23 0     0 0   my $self = shift;
24              
25 0           sprintf "%s: %s", $self->type, $self->message;
26             }
27             __PACKAGE__