File Coverage

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


line stmt bran cond sub pod time code
1             package Moose::Exception::CannotGenerateInlineConstraint;
2             our $VERSION = '2.2205';
3              
4 1     1   1058 use Moose;
  1         4  
  1         7  
5             extends 'Moose::Exception';
6             with 'Moose::Exception::Role::TypeConstraint';
7              
8             has 'parameterizable_type_object_name' => (
9             is => 'ro',
10             isa => 'Str',
11             required => 1,
12             documentation => "This attribute can be used for fetching parameterizable type constraint(Moose::Meta::TypeConstraint::Parameterizable):\n".
13             " my \$type_constraint = Moose::Util::TypeConstraints::find_type_constraint( \$exception->type_name );\n",
14             );
15              
16             has 'value' => (
17             is => 'ro',
18             isa => 'Str',
19             required => 1
20             );
21              
22             sub _build_message {
23 1     1   2 my $self = shift;
24 1         288 my $type = $self->type_name;
25              
26 1         28 return "Can't generate an inline constraint for $type, since none was defined";
27             }
28              
29             __PACKAGE__->meta->make_immutable;
30             1;