The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Poet::Mechanize;
$Poet::Mechanize::VERSION = '0.15';
use Poet::Environment;
use Plack::Util;
use base qw(Test::WWW::Mechanize::PSGI);
use strict;
use warnings;

sub new {
    my ( $class, %params ) = @_;
    my $poet = delete( $params{'env'} ) || Poet::Environment->current_env;
    my $app = Plack::Util::load_psgi( $poet->bin_path("app.psgi") );
    return $class->SUPER::new( app => $app, %params );
}

1;