File Coverage

blib/lib/HTTP/Response/Maker.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	22	22	100.0

package HTTP::Response::Maker;
use strict;
use warnings;
use 5.008_001;
use Class::Load qw(load_class);

our $VERSION = '0.02';

our @DefaultHeaders = (
    'Content-Type' => 'text/html; charset=utf-8'
);

sub import {
    my ($class, $impl, @args) = @_;

    $impl = "HTTP::Response::Maker::$impl";
    load_class $impl;

    @_ = ($impl, @args);
    goto $impl->can('import');
}

1;

__END__