File Coverage

blib/lib/HTTP/Engine/Types/Core.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package HTTP::Engine::Types::Core;
use Any::Moose;
use Any::Moose (
    'X::Types'        => [-declare => [qw/Interface Uri Header Handler/]],
    'X::Types::'.any_moose() , [qw/HashRef Str Object CodeRef ArrayRef/],
);

use URI;
use URI::WithBase;
use URI::QueryParam;
use HTTP::Headers::Fast;

do {
    role_type Interface, { role => "HTTP::Engine::Role::Interface" };

    coerce Interface, from HashRef, via {
        my $module  = $_->{module};
        my $plugins = $_->{plugins} || [];
        my $args    = $_->{args};
        $args->{request_handler} = $_->{request_handler};

        if ( $module !~ s{^\+}{} ) {
            $module = join( '::', "HTTP", "Engine", "Interface", $module );
        }

        Any::Moose::load_class($module);

        return $module->new(%$args);
    };
};

do {
    subtype Uri, as "URI::WithBase";

    coerce Uri, from Str, via {

        # generate base uri
        my $uri  = URI->new($_);
        my $base = $uri->path;
        $base =~ s{^/+}{};
        $uri->path($base);
        $base .= '/' unless $base =~ /\/$/;
        $uri->query(undef);
        $uri->path($base);
        URI::WithBase->new( $_, $uri );
    };
};

do {
    subtype Header,
        as Object,
        where { $_->isa('HTTP::Headers::Fast') || $_->isa('HTTP::Headers') };

    coerce Header,
        from ArrayRef, via { HTTP::Headers::Fast->new( @{$_} ) };
    coerce Header,
        from HashRef,  via { HTTP::Headers::Fast->new( %{$_} ) };
};

do {
    subtype Handler, as CodeRef;
    coerce Handler, from Str, via { \&{$_} };
};

1;

__END__