File Coverage

blib/lib/Scalar/Andand.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 0 1 0.0
total 31 32 96.8


line stmt bran cond sub pod time code
1             package Scalar::Andand;
2              
3 3     3   68810 use 5.008;
  3         10  
  3         101  
4              
5 3     3   16 use strict;
  3         4  
  3         80  
6 3     3   19 use warnings;
  3         10  
  3         120  
7             our $VERSION = '0.05';
8              
9             my %args;
10 3     3   1867 use Scalar::Andand::Undef;
  3         7  
  3         74  
11 3     3   1766 use Scalar::Andand::Scalar;
  3         5  
  3         104  
12 3     3   66 BEGIN { %args = (SCALAR => [ 'Scalar::Andand::Scalar', 'autobox::Core::SCALAR' ], UNDEF => 'Scalar::Andand::Undef') }
13 3     3   3435 use autobox::Core %args;
  3         68222  
  3         28  
14              
15             sub import { ## no critic (RequireArgUnpacking)
16 3     3   33 push @_, %args;
17 3         14 goto &autobox::Core::import;
18             }
19              
20             sub UNIVERSAL::andand {
21 4     4 0 2540 return shift;
22             }
23              
24             1;
25              
26             __END__