File Coverage

blib/lib/Catmandu/Plugin/Readonly/Droppable.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              
2             use Catmandu::Sane;
3 1     1   450 use Moo::Role;
  1         3  
  1         8  
4 1     1   10  
  1         4  
  1         7  
5             around drop => sub {
6             my ($orig, $self) = @_;
7             my $pkg = ref($self);
8             $self->log->warn("trying to drop a readonly store");
9             my $err = Catmandu::NotImplemented->new("$pkg is readonly");
10             return undef, $err;
11             };
12              
13             1;