view release on metacpan or  search on metacpan

t/505_dual.t  view on Meta::CPAN

$t->aga_html_r(make_url => 1);
$t->content_like(qr/hrum/);
ENDS
append_file('MANIFEST', "\nt/dual/030_load.t\n");

like(read_file("lib/TTT/UI/Index.pm"), qr/sub swit_startup/);
$mt->replace_in_file("lib/TTT/UI/Index.pm", 'sub swit_startup {', <<ENDS);
use File::Slurp;
sub swit_startup {
	append_file("$td/swit_startup_test", sprintf("\%d \%s \%s\n"
			, \$\$, \$0, (caller)[1]));
ENDS
append_file('templates/index.tt', '[% INCLUDE templates/inc.tt %]');
write_file('templates/inc.tt', "hrum\nhrum\n");
append_file('MANIFEST', "\ntemplates/inc.tt\n");

my $res = `./scripts/swit_app.pl add_class SC`;
is($?, 0);
$mt->replace_in_file("lib/TTT/SC.pm", "1;", <<ENDS);
use File::Slurp;
sub swit_startup {

t/T/SWIT.pm  view on Meta::CPAN

use warnings FATAL => 'all';

package T::SWIT;
use base 'Apache::SWIT';
use File::Slurp;
use Carp;
use File::Basename qw(dirname);

sub swit_startup {
	append_file("/tmp/swit_startup_test", sprintf("%d %s %s\n"
			, $$, $_[0], (caller)[1]));
}

sub swit_render {
	my ($class, $r) = @_;
	if ($r->uri !~ /huge/) {
		my $f = dirname($INC{'T/SWIT.pm'}) . "/../templates/test.tt";
		$r->pnotes('SWITTemplate', $f);
	}
	return { hello => 'world', request => 'reqboo' };
}