File Coverage

blib/lib/Test/STF/MockServer.pm

Criterion	Covered	Total	%
statement	25	35	71.4
branch	0	4	0.0
condition			n/a
subroutine	7	8	87.5
pod	3	3	100.0
total	35	50	70.0

package Test::STF::MockServer;
use strict;
use Test::TCP;
use URI;
use Class::Accessor::Lite
    ro => [ qw(impl) ]
;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my %args  = @_;

    my $impl = $args{impl};
    my $plack_args = $args{plack_args};

    my $server = Test::TCP->new(code => sub {
        my $port = shift;

        # require is in this scope because it would be used
        # in the child process.
        if (! $impl) {
            require STF::Dispatcher::Impl::Hash;
            $impl = STF::Dispatcher::Impl::Hash->new;
        }

        require STF::Dispatcher::PSGI;
        my $dispatcher = STF::Dispatcher::PSGI->new(
            impl => $impl
        );

        require Plack::Runner;
        my $runner = Plack::Runner->new;
        $runner->parse_options('--port' => $port, $plack_args ? @$plack_args : ());
        $runner->run($dispatcher->to_app);
    });

    my $url = URI->new("http://127.0.0.1");
    $url->port( $server->port );
    bless [ $server, $url ], $class;
}

sub url {
    return $_[0]->[1]->clone;
}

sub url_for {
    my $self = shift;
    my $url  = $self->url;
    $url->path("@_");
    return $url;
}

__END__