view release on metacpan or  search on metacpan

t/TEST.PL  view on Meta::CPAN

                 "", "", { AutoCommit => 1, PrintError => 1, RaiseError => 0 } )
  or die $DBI::errstr;

for my $table ( keys %tables ) {
  unless ( table_exists( $dbh, $table ) ) {
    $dbh->do( $tables{$table} );
  }
}
$dbh->disconnect;

chmod 0666 => "$pkit_root/dbfile";

unless ($root_found) {
  push( @ARGV, '--documentroot' => $pkit_root );
  chmod 0777 => catfile( $pkit_root, 'View', 'pkit_cache' );
}

Apache::TestRunPerl->new->run(@ARGV);
1;