File Coverage

blib/lib/HTTP/Headers/ActionPack/Core/BaseHeaderList.pm

Criterion	Covered	Total	%
statement	24	27	88.8
branch	1	2	50.0
condition			n/a
subroutine	8	11	72.7
pod	5	5	100.0
total	38	45	84.4

package HTTP::Headers::ActionPack::Core::BaseHeaderList;
BEGIN {
  $HTTP::Headers::ActionPack::Core::BaseHeaderList::AUTHORITY = 'cpan:STEVAN';
}
{
  $HTTP::Headers::ActionPack::Core::BaseHeaderList::VERSION = '0.09';
}
# ABSTRACT: A Base Header List

use strict;
use warnings;

use Scalar::Util                    qw[ blessed ];
use HTTP::Headers::ActionPack::Util qw[ split_header_words ];

use parent 'HTTP::Headers::ActionPack::Core::Base';

sub new_from_string {
    my ($class, $header_string) = @_;
    my $list = $class->new;
    foreach my $header ( split_header_words( $header_string ) ) {
        $list->add_header_value( $header )
    }
    $list;
}

sub as_string {
    my $self = shift;
    join ', ' => map { blessed $_ ? $_->as_string : $_ } $self->iterable;
}

sub add              { die "Abstract method" }
sub add_header_value { die "Abstract method" }
sub iterable         { die "Abstract method" }

1;

__END__