File Coverage

blib/lib/Moose/Exception/CanReblessOnlyIntoASubclass.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::CanReblessOnlyIntoASubclass;
2             our $VERSION = '2.2205';
3              
4 2     2   1789 use Moose;
  2         9  
  2         12  
5             extends 'Moose::Exception';
6             with 'Moose::Exception::Role::ParamsHash', 'Moose::Exception::Role::Class', 'Moose::Exception::Role::Instance', 'Moose::Exception::Role::InstanceClass';
7              
8             sub _build_message {
9 3     3   5 my $self = shift;
10 3         101 my $instance_class = $self->instance_class;
11 3         109 "You may rebless only into a subclass of ($instance_class), of which (". $self->class_name .") isn't."
12             }
13              
14             __PACKAGE__->meta->make_immutable;
15             1;