File Coverage

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

Criterion	Covered	Total	%
statement	17	21	80.9
branch	0	2	0.0
condition			n/a
subroutine	7	9	77.7
pod	5	5	100.0
total	29	37	78.3

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

use strict;
use warnings;

use overload '""' => 'as_string', fallback => 1;

sub new {
    my $class = shift;
    my $self  = $class->CREATE( $class->BUILDARGS( @_ ) );
    $self->BUILD( @_ );
    $self;
}

sub BUILDARGS { +{ ref $_[0] eq 'HASH' ? %{ $_[0] } : @_ } }

sub CREATE {
    my ($class, $instance) = @_;
    bless $instance => $class;
}

sub BUILD {}

sub as_string {
    my $self = shift;
    "$self"
}

1;

__END__