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             #line 1
2 1     1   6 package YAML::Tag;
  1     1   1  
  1         33  
  1         6  
  1         1  
  1         54  
3             use strict; use warnings;
4 1     1   5  
  1     0   1  
  1         40  
  0            
  0            
5             use overload '""' => sub { ${$_[0]} };
6              
7 0     0 0   sub new {
8 0           my ($class, $self) = @_;
9             bless \$self, $class
10             }
11              
12 0     0 0   sub short {
  0            
13             ${$_[0]}
14             }
15              
16 0     0 0   sub canonical {
  0            
17             ${$_[0]}
18             }
19              
20             1;
21              
22             __END__