1Net::OpenID::Extension:U:sSeirmpCloenRtergiibNsuetttre:ad:tOiPpoeenrn(lI3D)D:o:cEuxmteenntsaitoino:n:SimpleRegistration(3)
2
3
4
6 Net::OpenID::Extension::SimpleRegistration - Support for the Simple
7 Registration extension (SREG)
8
10 version 1.20
11
13 In Consumer...
14
15 my $sreg_req = $claimed_identity->add_extension_request('Net::OpenID::Extension::SimpleRegistration', (
16 required_fields => [qw(nickname email)],
17 optional_fields => [qw(country language timezone)],
18 policy_url => "http://example.com/policy.html",
19 ));
20
21 Then, in Server, when handling the authentication request...
22
23 # FIXME: What object do we have in ::Server that can hold this method?
24 my $sreg_req = $something->get_extension_request('Net::OpenID::Extension::SimpleRegistration');
25 my $required_fields = $sreg_req->required_fields;
26 my $optional_fields = $sreg_req->optional_fields;
27 my $policy_url = $sreg_req->policy_url;
28
29 When Server sends back its response...
30
31 # FIXME: Again, what object do we have to hold this method?
32 my $sreg_res = $something->add_extension_response('Net::OpenID::Extension::SimpleRegistration', (
33 nickname => $nickname,
34 email => $email,
35 ));
36
37 And finally, when back in Consumer receiving the response:
38
39 my $sreg_res = $verified_identity->get_extension_response('Net::OpenID::Extension::SimpleRegistration');
40 my $nickname = $sreg_res->nickname;
41 my $email = $sreg_res->email;
42 my $country = $sreg_res->country;
43 my $language = $sreg_res->language;
44 my $timezone = $sreg_res->timezone;
45
46
47
48perl v5.32.1 N2e0t2:1:-O0p1e-n2I7D::Extension::SimpleRegistration(3)