OpenID::Lite::Relyingparty::Discover::Service - Discovered information
$service->url; $service->claimed_identifier $service->op_local_identifier $service->copy; $service->find_local_identifier; $service->is_op_identifier; $service->preferred_namespace; $service->requires_compatibility_mode; $service->has_type( ); $service->add_type(); $service->has_uri(); $service->add_uri();
This class's object represents discovered information.
my $service = OpenID::Lite::RelyingParty::Discover::Service->new;
Returns service endpoint url.
my $service_endpoint_url = $service->url;
Add a type of service the OP provides.
use OpenID::Lite::Constants::Namespace qw( SERVER_2_0 SIGNON_2_0 ); $service->add_type( SERVER_2_0 ); $service->add_type( SIGNON_2_0 );
Check if the OP provides indicated type of service.
use OpenID::Lite::Constants::Namespace qw( SERVER_2_0 ); $service->has_type( SERVER_2_0 );
Add endpoint uri
$service->has_uri(q{http://yourapp.com/openid/endpoint});
Check if the service includes indicated uri.
if ( $service->has_uri( $endpoint_uri ) ) { ... }
Return claimed identitifier if it has. (When discovery is carried out with claimed_id)
my $claimed_id = $service->claimed_identifier;
Return op local identitifier if it has. (When discovery is carried out with claimed_id and the response which OP returns includes LocalID)
my $op_local_identifier = $service->op_local_identifier;
Returns op_local_identfier if it found. Or return claimed id.
my $identity = $service->find_local_identifier;
my $copied_service = $service->copy();
Return true if this is for OP identifier (When discovery is carried out with OP identifier)
if ( $service->is_op_identifier ) { ... }
Return proper namespace for openid.ns
If the endpoint accepts only OpenID 1.x version protocol, return true.
Lyo Kato, <lyo.kato@gmail.com>
Copyright (C) 2009 by Lyo Kato
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.
To install OpenID::Lite, copy and paste the appropriate command in to your terminal.
cpanm
cpanm OpenID::Lite
CPAN shell
perl -MCPAN -e shell install OpenID::Lite
For more information on module installation, please visit the detailed CPAN module installation guide.