File Coverage

blib/lib/LV/Backend/Sentinel.pm
Criterion Covered Total %
statement 15 22 68.1
branch 1 2 50.0
condition 1 7 14.2
subroutine 5 7 71.4
pod 0 1 0.0
total 22 39 56.4


line stmt bran cond sub pod time code
1 2     2   25462 use 5.008;
  2         8  
  2         82  
2 2     2   13 use strict;
  2         3  
  2         70  
3 2     2   9 use warnings;
  2         2  
  2         113  
4              
5             package LV::Backend::Sentinel;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.006';
9              
10 2     2   1664 use Sentinel;
  2         2153  
  2         499  
11              
12             sub lvalue :lvalue
13             {
14 5     5 0 18 my %args = @_;
15 5 50 33     28 unless ($args{set} && $args{get})
16             {
17 0         0 my $caller = (caller(1))[3];
18 0   0 0   0 $args{get} ||= sub { require Carp; Carp::croak("$caller is writeonly") };
  0         0  
  0         0  
19 0   0 0   0 $args{set} ||= sub { require Carp; Carp::croak("$caller is readonly") };
  0         0  
  0         0  
20             }
21 5         38 sentinel(%args);
22             }
23              
24             1;