File Coverage

blib/lib/Moose/Exception/DefaultToMatchOnTypeMustBeCodeRef.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::DefaultToMatchOnTypeMustBeCodeRef;
2             our $VERSION = '2.2206';
3              
4 1     1   582 use Moose;
  1         3  
  1         9  
5             extends 'Moose::Exception';
6              
7             has 'to_match' => (
8             is => 'ro',
9             isa => 'Any',
10             required => 1
11             );
12              
13             has 'default_action' => (
14             is => 'ro',
15             isa => 'Any',
16             required => 1
17             );
18              
19             has 'cases_to_be_matched' => (
20             is => 'ro',
21             isa => 'ArrayRef',
22             required => 1
23             );
24              
25             sub _build_message {
26 1     1   3 my $self = shift;
27 1         37 my $default = $self->default_action;
28              
29 1         26 return "Default case must be a CODE ref, not $default";
30             }
31              
32             __PACKAGE__->meta->make_immutable;
33             1;