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__ |