File Coverage

blib/lib/Moose/Exception/CanReblessOnlyIntoASuperclass.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 7 7 100.0


line stmt bran cond sub pod time code
1             package Moose::Exception::CanReblessOnlyIntoASuperclass;
2             our $VERSION = '2.2203';
3              
4 2     2   1089 use Moose;
  2         4  
  2         11  
5             extends 'Moose::Exception';
6             with '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         81 "You may rebless only into a superclass of (".blessed( $self->instance )."), of which (". $self->class_name .") isn't."
11             }
12              
13             __PACKAGE__->meta->make_immutable;
14             1;