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.
