File Coverage

blib/lib/Moose/Exception/CouldNotParseType.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package Moose::Exception::CouldNotParseType;
2             our $VERSION = '2.2205';
3              
4 1     1   602 use Moose;
  1         3  
  1         5  
5             extends 'Moose::Exception';
6              
7             has 'type' => (
8             is => 'ro',
9             isa => 'Str',
10             required => 1
11             );
12              
13             has 'position' => (
14             is => 'ro',
15             isa => 'Int',
16             required => 1
17             );
18              
19             sub _build_message {
20 1     1   3 my $self = shift;
21 1         29 my $type = $self->type;
22 1         2 my $length = length($type);
23 1         30 my $position = $self->position;
24              
25 1         26 return "'$type' didn't parse (parse-pos=$position"
26             . " and str-length=$length)";
27             }
28              
29             __PACKAGE__->meta->make_immutable;
30             1;