1HTTP::Headers::ActionPaUcske:r:ACuotnhtorriibzuatHteTidToPnP:(e:3rH)leaDdoecrusm:e:nAtcattiioonnPack::Authorization(3)
2
3
4
6 HTTP::Headers::ActionPack::Authorization - The Authorization Header
7 factory
8
10 version 0.09
11
13 use HTTP::Headers::ActionPack::Authorization;
14
15 # create HTTP::Headers::ActionPack::Authorization::Basic objects ...
16
17 # create from string
18 my $auth = HTTP::Headers::ActionPack::Authorization->new_from_string(
19 'Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ=='
20 );
21
22 # create from parameters
23 my $auth = HTTP::Headers::ActionPack::Authorization->new(
24 'Basic' => {
25 username => 'Aladdin',
26 password => 'open sesame'
27 }
28 );
29
30 my $auth = HTTP::Headers::ActionPack::Authorization->new(
31 'Basic' => [ 'Aladdin', 'open sesame' ]
32 );
33
34 my $auth = HTTP::Headers::ActionPack::Authorization->new(
35 'Basic' => 'QWxhZGRpbjpvcGVuIHNlc2FtZQ=='
36 );
37
38 # or HTTP::Headers::ActionPack::Authorization::Digest objects ...
39
40 # create from string
41 my $auth = HTTP::Headers::ActionPack::Authorization->new_from_string(
42 q{Digest
43 username="jon.dough@mobile.biz",
44 realm="RoamingUsers@mobile.biz",
45 nonce="CjPk9mRqNuT25eRkajM09uTl9nM09uTl9nMz5OX25PZz==",
46 uri="sip:home.mobile.biz",
47 qop=auth-int,
48 nc=00000001,
49 cnonce="0a4f113b",
50 response="6629fae49393a05397450978507c4ef1",
51 opaque="5ccc069c403ebaf9f0171e9517f40e41"}
52 );
53
54 # create from parameters
55 my $auth = HTTP::Headers::ActionPack::Authorization->new(
56 'Digest' => (
57 username => 'jon.dough@mobile.biz',
58 realm => 'RoamingUsers@mobile.biz',
59 nonce => "CjPk9mRqNuT25eRkajM09uTl9nM09uTl9nMz5OX25PZz==",
60 uri => "sip:home.mobile.biz",
61 qop => 'auth-int',
62 nc => '00000001',
63 cnonce => "0a4f113b",
64 response => "6629fae49393a05397450978507c4ef1",
65 opaque => "5ccc069c403ebaf9f0171e9517f40e41"
66 )
67 );
68
70 This is a factory class that can be used to create the appropriate
71 subclass based on the type of Authorization header.
72
74 "new ( %params )"
75 "new_from_string ( $header_string )"
76
78 Stevan Little <stevan.little@iinteractive.com>
79
81 • Andrew Nelson <anelson@cpan.org>
82
83 • Dave Rolsky <autarch@urth.org>
84
85 • Florian Ragwitz <rafl@debian.org>
86
87 • Jesse Luehrs <doy@tozt.net>
88
89 • Karen Etheridge <ether@cpan.org>
90
92 This software is copyright (c) 2012 by Infinity Interactive, Inc..
93
94 This is free software; you can redistribute it and/or modify it under
95 the same terms as the Perl 5 programming language system itself.
96
97
98
99perl v5.36.0 20H2T2T-P0:7:-H2e2aders::ActionPack::Authorization(3)