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             {
4             $Net::OpenID::Yadis::Service::VERSION = '1.19';
5             }
6              
7 1     1   5 use strict;
  1         2  
  1         25  
8 1     1   5 use warnings;
  1         2  
  1         174  
9              
10 0     0 1   sub URI { Net::OpenID::Yadis::_pack_array(shift->{'URI'}) }
11 0     0 1   sub Type { Net::OpenID::Yadis::_pack_array(shift->{'Type'}) }
12 0     0 1   sub priority { shift->{'priority'} }
13              
14             sub extra_field {
15 0     0 1   my $self = shift;
16 0           my ($field,$xmlns) = @_;
17 0 0         $xmlns and $field = "\{$xmlns\}$field";
18 0           $self->{$field};
19             }
20              
21             1;
22             __END__