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