change to mason style .t files

t/App.t

@@ -0,0 +1,3 @@
+#!perl -w
+use Poet::t::App;
+Poet::t::App->runtests;

t/Conf.t

@@ -1,10 +1,3 @@
 #!perl -w
-use File::Basename;
-my $class;
-
-BEGIN {
-    $class = "Poet::t::" . substr( basename($0), 0, -2 );
-    eval "require $class";
-    die $@ if $@;
-}
-Test::Class::runtests( $class->new );
+use Poet::t::Conf;
+Poet::t::Conf->runtests;

t/Environment.t

@@ -1,10 +1,3 @@
 #!perl -w
-use File::Basename;
-my $class;
-
-BEGIN {
-    $class = "Poet::t::" . substr( basename($0), 0, -2 );
-    eval "require $class";
-    die $@ if $@;
-}
-Test::Class::runtests( $class->new );
+use Poet::t::Environment;
+Poet::t::Environment->runtests;

t/Log.t

@@ -1,10 +1,3 @@
 #!perl -w
-use File::Basename;
-my $class;
-
-BEGIN {
-    $class = "Poet::t::" . substr( basename($0), 0, -2 );
-    eval "require $class";
-    die $@ if $@;
-}
-Test::Class::runtests( $class->new );
+use Poet::t::Log;
+Poet::t::Log->runtests;

t/Script.t

@@ -1,10 +1,3 @@
 #!perl -w
-use File::Basename;
-my $class;
-
-BEGIN {
-    $class = "Poet::t::" . substr( basename($0), 0, -2 );
-    eval "require $class";
-    die $@ if $@;
-}
-Test::Class::runtests( $class->new );
+use Poet::t::Script;
+Poet::t::Script->runtests;

t/make

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use Cwd qw(realpath);
+use File::Basename;
+use File::Slurp;
+use IPC::System::Simple qw(run);
+use warnings;
+use strict;
+
+my $cwd = dirname( realpath($0) );
+
+my $class = shift(@ARGV) or die "usage: $0 MyClass";
+$class =~ s/\.(t|pm)$//;
+my $filename = "$cwd/$class.t";
+my $source   = sprintf( "#!perl -w\nuse Poet::t::%s;\nPoet::t::%s->runtests;\n",
+    $class, $class );
+write_file( $filename, $source );
+run("git add $filename");
+print "$filename:\n$source\n";