File Coverage

blib/lib/WebService/LiveJournal/Tag.pm
Criterion Covered Total %
statement 9 18 50.0
branch n/a
condition 0 3 0.0
subroutine 3 9 33.3
pod 5 6 83.3
total 17 36 47.2


line stmt bran cond sub pod time code
1             package WebService::LiveJournal::Tag;
2              
3 1     1   3649 use strict;
  1         2  
  1         45  
4 1     1   6 use warnings;
  1         3  
  1         32  
5 1     1   7 use WebService::LiveJournal::Thingie;
  1         2  
  1         299  
6             our @ISA = qw/ WebService::LiveJournal::Thingie /;
7              
8             # ABSTRACT: A LiveJournal tag
9             our $VERSION = '0.07'; # VERSION
10              
11              
12             sub new
13             {
14 0     0 0   my $ob = shift;
15 0   0       my $class = ref($ob) || $ob;
16 0           my $self = bless { payload => shift }, $class;
17 0           return $self;
18             }
19              
20              
21 0     0 1   sub name { shift->{payload}->{name} }
22              
23              
24 0     0 1   sub display { shift->{payload}->{display} }
25              
26              
27 0     0 1   sub security_level { shift->{payload}->{security_level} }
28              
29              
30 0     0 1   sub uses { shift->{payload}->{uses} }
31              
32              
33 0     0 1   sub security { shift->{payload}->{security} }
34              
35              
36             1;
37              
38             __END__