File Coverage

blib/lib/assign/Types.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod n/a
total 32 32 100.0


line stmt bran cond sub pod time code
1 5     5   32 use strict; use warnings;
  5     5   8  
  5         175  
  5         24  
  5         10  
  5         1203  
2             package assign::Types;
3              
4              
5             #------------------------------------------------------------------------------
6             package var;
7              
8             sub new {
9 69     69   152 my ($class, $var, $def) = @_;
10 69         268 bless {
11             var => $var,
12             def => $def,
13             }, $class;
14             }
15              
16 236     236   650 sub val { $_[0]->{var} }
17              
18 60     60   310 sub sigil { substr($_[0]->{var}, 0, 1) }
19              
20              
21              
22             #------------------------------------------------------------------------------
23             package skip;
24              
25             sub new {
26 2     2   4 my ($class) = @_;
27 2         11 my $skip = '_';
28 2         8 bless \$skip, $class;
29             }
30              
31 2     2   3 sub val { ${$_[0]} }
  2         19  
32              
33              
34              
35             #------------------------------------------------------------------------------
36             package skip_num;
37 5     5   6234 use overload '""', \&stringify;
  5         5661  
  5         35  
38              
39             sub new {
40 2     2   6 my ($class, $num) = @_;
41 2         7 bless \$num, $class;
42             }
43              
44 4     4   6 sub val { ${$_[0]} }
  4         38  
45              
46             1;