File Coverage

blib/lib/WWW/PGXN/Tag.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 3 3 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package WWW::PGXN::Tag;
2              
3 9     9   96 use 5.8.1;
  9         31  
  9         364  
4 9     9   43 use strict;
  9         16  
  9         1092  
5              
6             our $VERSION = v0.12.4;
7              
8             sub new {
9 1     1 1 33 my ($class, $data) = @_;
10 1         7 bless $data, $class;
11             }
12              
13 1     1 1 7 sub name { shift->{tag} }
14              
15             sub releases {
16 1     1 1 2 +{ %{ shift->{releases} } }
  1         22  
17             }
18              
19             __END__