File Coverage

blib/lib/immutable/tied.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	22	26	84.6

use strict; use warnings;
package immutable::tied;

use Exporter 'import';
use Carp 'croak';

our @EXPORT = qw(
    err
);

sub err {
    (my $package = (caller(1))[3]) =~ s/(.*)::tied::.*/$1/;
    if (@_) {
        my ($action, $try) = @_;
        croak <<"...";
Not valid to $action an $package object.
Try '$try' which returns a new $package.
...

    } else {
        (my $name = (caller(1))[3]) =~ s/.*:://;
        croak <<"...";
Invalid usage of $package object caused a call to '$name'.
Try using the appropriate method call instead.
...
    }
}

1;