File Coverage

blib/lib/Net/OpenID/Yadis/Service.pm
Criterion Covered Total %
statement 6 13 46.1
branch 0 2 0.0
condition n/a
subroutine 2 6 33.3
pod 4 4 100.0
total 12 25 48.0


line stmt bran cond sub pod time code
1              
2             package Net::OpenID::Yadis::Service;
3             $Net::OpenID::Yadis::Service::VERSION = '1.20';
4 1     1   3 use strict;
  1         1  
  1         21  
5 1     1   3 use warnings;
  1         1  
  1         101  
6              
7 0     0 1   sub URI { Net::OpenID::Yadis::_pack_array(shift->{'URI'}) }
8 0     0 1   sub Type { Net::OpenID::Yadis::_pack_array(shift->{'Type'}) }
9 0     0 1   sub priority { shift->{'priority'} }
10              
11             sub extra_field {
12 0     0 1   my $self = shift;
13 0           my ($field,$xmlns) = @_;
14 0 0         $xmlns and $field = "\{$xmlns\}$field";
15 0           $self->{$field};
16             }
17              
18             1;
19             __END__