NAME

OpenID::Lite::Relyingparty::Discover::Service - Discovered information

SYNOPSIS

    $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();

DESCRIPTION

This class's object represents discovered information.

METHODS

new

    my $service = OpenID::Lite::RelyingParty::Discover::Service->new;

url

Returns service endpoint url.

    my $service_endpoint_url = $service->url;

add_type

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 );

has_type

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_uri

Add endpoint uri

    $service->has_uri(q{http://yourapp.com/openid/endpoint});

has_uri

Check if the service includes indicated uri.

    if ( $service->has_uri( $endpoint_uri ) ) {
        ...
    }

claimed_identifier

Return claimed identitifier if it has. (When discovery is carried out with claimed_id)

    my $claimed_id = $service->claimed_identifier;

op_local_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;

find_local_identifier

Returns op_local_identfier if it found. Or return claimed id.

    my $identity = $service->find_local_identifier;

copy

    my $copied_service = $service->copy();

is_op_identifier

Return true if this is for OP identifier (When discovery is carried out with OP identifier)

    if ( $service->is_op_identifier ) {
        ...
    }

preferred_namespace

Return proper namespace for openid.ns

requires_compatibility_mode

If the endpoint accepts only OpenID 1.x version protocol, return true.

AUTHOR

Lyo Kato, <lyo.kato@gmail.com>

COPYRIGHT AND LICENSE

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.

cpanm OpenID::Lite

perl -MCPAN -e shell
install OpenID::Lite