File Coverage

blib/lib/HTTP/Headers/ActionPack/Util.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	4	4	100.0
condition			n/a
subroutine	12	12	100.0
pod	2	5	40.0
total	56	59	94.9

package HTTP::Headers::ActionPack::Util;
BEGIN {
  $HTTP::Headers::ActionPack::Util::AUTHORITY = 'cpan:STEVAN';
}
{
  $HTTP::Headers::ActionPack::Util::VERSION = '0.09';
}
# ABSTRACT: General Utility module

use strict;
use warnings;

use Time::Piece;
use HTTP::Date qw[ str2time time2str ];
use HTTP::Headers::Util;

use Sub::Exporter -setup => {
    exports => [qw[
        header_to_date
        date_to_header
        split_header_words
        join_header_words
        join_header_params
    ]]
};

sub header_to_date { scalar Time::Piece->gmtime( str2time( shift ) ) }
sub date_to_header { time2str( shift->epoch ) }

sub split_header_words {
    my $header = shift;
    map {
        splice @$_, 1, 1;
        $_;
    } HTTP::Headers::Util::_split_header_words( $header );
}

sub join_header_words {
    my ($subject, @params) = @_;
    return $subject . '; ' . join_header_params( '; ' =>  @params ) if @params;
    return $subject;
}

sub join_header_params {
    my ($separator, @params) = @_;
    my @attrs;
    while ( @params ) {
        my $k = shift @params;
        my $v = shift @params;

        if (defined $v) {
            $v =~ s/([\"\\])/\\$1/g;  # escape " and \
        }
        else {
            $v = q{};
        }
        push @attrs => ($k . qq(="$v"));
    }
    return join $separator =>  @attrs;
}

1;

__END__