File Coverage

blib/lib/YAML/Old/Tag.pm
Criterion Covered Total %
statement 13 17 76.4
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 3 0.0
total 18 27 66.6


line stmt bran cond sub pod time code
1 36     36   190 use strict; use warnings;
  36     36   62  
  36         1131  
  36         180  
  36         102  
  36         2390  
2             package YAML::Old::Tag;
3              
4 36     36   2064 use overload '""' => sub { ${$_[0]} };
  36     0   9028  
  36         1073  
  0         0  
  0         0  
5              
6             sub new {
7 90     90 0 169 my ($class, $self) = @_;
8 90         427 bless \$self, $class
9             }
10              
11             sub short {
12 91     91 0 102 ${$_[0]}
  91         825  
13             }
14              
15             sub canonical {
16 0     0 0   ${$_[0]}
  0            
17             }
18              
19             1;