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 | |||||||
2 | our $VERSION = '1.003029'; | ||||||
3 | |||||||
4 | use Moose; | ||||||
5 | 2 | 2 | 15 | use namespace::autoclean; | |||
2 | 5 | ||||||
2 | 16 | ||||||
6 | 2 | 2 | 12234 | ||||
2 | 3 | ||||||
2 | 17 | ||||||
7 | # FIXME get nothingmuch to refactor and release his useful error object | ||||||
8 | |||||||
9 | has type => ( | ||||||
10 | isa => "Str", | ||||||
11 | is => "ro", | ||||||
12 | required => 1, | ||||||
13 | ); | ||||||
14 | |||||||
15 | has message => ( | ||||||
16 | isa => "Str|Object", | ||||||
17 | is => "ro", | ||||||
18 | required => 1, | ||||||
19 | ); | ||||||
20 | |||||||
21 | my $self = shift; | ||||||
22 | |||||||
23 | 0 | 0 | 0 | sprintf "%s: %s", $self->type, $self->message; | |||
24 | } | ||||||
25 | 0 | __PACKAGE__ |