File Coverage

inc/YAML/Tag.pm
Criterion Covered Total %
statement 9 17 52.9
branch n/a
condition n/a
subroutine 3 7 42.8
pod 0 3 0.0
total 12 27 44.4


line stmt bran cond sub pod time code
1 2     2   9 #line 1
  2         4  
  2         51  
2 2     2   8 use strict;
  2         3  
  2         130  
3             use warnings;
4             package YAML::Tag;
5              
6             our $VERSION = '0.80';
7 2     2   3366  
  2     0   2235  
  2         19  
  0            
  0            
8             use overload '""' => sub { ${$_[0]} };
9              
10 0     0 0   sub new {
11 0           my ($class, $self) = @_;
12             bless \$self, $class
13             }
14              
15 0     0 0   sub short {
  0            
16             ${$_[0]}
17             }
18              
19 0     0 0   sub canonical {
  0            
20             ${$_[0]}
21             }
22              
23             1;
24              
25             __END__