view release on metacpan or  search on metacpan

t/01_base.t  view on Meta::CPAN

    like( $$out, qr/A short string that's easy to test/, "Set sub in default Lookups package" );
}

{
    my $app = TestApp6->new( cgi => CGI->new({ p => 'testapp6'}) );
    $app->tt_vars( 
        test_sub => sub {
            my $app   = shift;
            my $param = shift;

            is( caller(), 'Template::Document', "The goto &func trick" );

            isa_ok( $app, 'CGI::Builder' );
            isa_ok( $app, 'TestApp6' );

            is( $param, 'foobar', 'Parameter passed to sub' );

            return "subroutine";
        }
    );
    my $out = $app->capture( 'process' );