/usr/share/perl5/Net/OpenID/Yadis/Service.pm is in libnet-openid-common-perl 1.18-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | package Net::OpenID::Yadis::Service;
{
$Net::OpenID::Yadis::Service::VERSION = '1.18';
}
use strict;
use warnings;
sub URI { Net::OpenID::Yadis::_pack_array(shift->{'URI'}) }
sub Type { Net::OpenID::Yadis::_pack_array(shift->{'Type'}) }
sub priority { shift->{'priority'} }
sub extra_field {
my $self = shift;
my ($field,$xmlns) = @_;
$xmlns and $field = "\{$xmlns\}$field";
$self->{$field};
}
1;
__END__
=head1 NAME
Net::OpenID::Yadis::Service - Class representing an XRDS Service element
=head1 VERSION
version 1.18
=head1 SYNOPSIS
use Net::OpenID::Yadis;
my $disc = Net::OpenID::Yadis->new();
my @xrd = $disc->discover("http://id.example.com/") or Carp::croak($disc->err);
foreach my $srv (@xrd) { # Loop for Each Service in Yadis Resourse Descriptor
print $srv->priority; # Service priority (sorted)
print $srv->Type; # Identifier of some version of some service (scalar, array or array ref)
print $srv->URI; # URI that resolves to a resource providing the service (scalar, array or array ref)
print $srv->extra_field("Delegate","http://openid.net/xmlns/1.0");
# Extra field of some service
}
=head1 DESCRIPTION
After L<Net::OpenID::Yadis> performs discovery, the result is a list
of instances of this class.
=head1 METHODS
=over 4
=item $srv->B<priority>
The priority value for the service.
=item $srv->B<Type>
The URI representing the kind of service provided at the endpoint for this record.
=item $srv->B<URI>
The URI of the service endpoint.
=item $srv->B<extra_field>( $fieldname , $namespace )
Fetch the value of extension fields not provided directly by this class.
If C<$namespace> is not specified, the default is the namespace whose name is the empty string.
=back
=head1 COPYRIGHT, WARRANTY, AUTHOR
See L<Net::OpenID::Yadis> for author, copyright and licensing information.
=head1 SEE ALSO
L<Net::OpenID::Yadis>
Yadis website: L<http://yadis.org/>
|