1package HTTP::Headers::ActionPack::AuthenticationInfo;
2BEGIN {
3  $HTTP::Headers::ActionPack::AuthenticationInfo::AUTHORITY = 'cpan:STEVAN';
4}
5{
6  $HTTP::Headers::ActionPack::AuthenticationInfo::VERSION = '0.09';
7}
8# ABSTRACT: The Authentication-Info Header
9
10use strict;
11use warnings;
12
13use HTTP::Headers::ActionPack::Util qw[
14    join_header_params
15];
16
17use parent 'HTTP::Headers::ActionPack::Core::BaseHeaderWithParams';
18
19sub BUILDARGS {
20    my $class = shift;
21    $class->_prepare_params( @_ )
22}
23
24sub new_from_string {
25    my ($class, $header_string) = @_;
26    $class->new(
27        map { @$_ } HTTP::Headers::Util::_split_header_words( $header_string )
28    );
29}
30
31sub as_string {
32    join_header_params( ', ' => (shift)->params_in_order );
33}
34
351;
36
37__END__
38
39=pod
40
41=head1 NAME
42
43HTTP::Headers::ActionPack::AuthenticationInfo - The Authentication-Info Header
44
45=head1 VERSION
46
47version 0.09
48
49=head1 SYNOPSIS
50
51  use HTTP::Headers::ActionPack::AuthenticationInfo;
52
53  # create from string
54  my $auth_info = HTTP::Headers::ActionPack::AuthenticationInfo->new_from_string(
55      'qop=auth-int, rspauth="6629fae49393a05397450978507c4ef1", cnonce="0a4f113b", nc=00000001'
56  );
57
58  # create from parameters
59  my $auth_info = HTTP::Headers::ActionPack::AuthenticationInfo->new(
60      qop     => 'auth-int',
61      rspauth => "6629fae49393a05397450978507c4ef1",
62      cnonce  => "0a4f113b",
63      nc      => '00000001'
64  );
65
66=head1 DESCRIPTION
67
68This class represents the Authentication-Info header, it is a pretty parameter
69based header and so inherits from L<HTTP::Headers::ActionPack::Core::BaseHeaderWithParams>
70to handle all the parameters.
71
72=head1 METHODS
73
74=over 4
75
76=item C<new ( %params )>
77
78=item C<new_from_string ( $header_string )>
79
80=item C<as_string>
81
82=back
83
84=head1 AUTHOR
85
86Stevan Little <stevan.little@iinteractive.com>
87
88=head1 CONTRIBUTORS
89
90=over 4
91
92=item *
93
94Andrew Nelson <anelson@cpan.org>
95
96=item *
97
98Dave Rolsky <autarch@urth.org>
99
100=item *
101
102Florian Ragwitz <rafl@debian.org>
103
104=item *
105
106Jesse Luehrs <doy@tozt.net>
107
108=item *
109
110Karen Etheridge <ether@cpan.org>
111
112=back
113
114=head1 COPYRIGHT AND LICENSE
115
116This software is copyright (c) 2012 by Infinity Interactive, Inc..
117
118This is free software; you can redistribute it and/or modify it under
119the same terms as the Perl 5 programming language system itself.
120
121=cut
122