view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    $wm{test} = { TESTS => join " " => (sort glob "t/*.t"), @nt };
    $wm{clean}{FILES} .= " @nt";
    }

my $rv = WriteMakefile (%wm);

# perlcriticrc uses Config::Tiny, which does not support nesting
if (-f ".perlcriticrc" && -s "$ENV{HOME}/.perlcriticrc") {
    open my $fh, ">", ".perlcriticrc";
    print $fh do {
	local (@ARGV, $/) = ("$ENV{HOME}/.perlcriticrc"); <> };
    print $fh join "\n" => "",
	"[-Modules::ProhibitMultiplePackages]",
	"[-Subroutines::ProhibitBuiltinHomonyms]", # connect
	"[-ValuesAndExpressions::RestrictLongStrings]",	# error message
	"[-Variables::ProhibitPackageVars]", # very deliberate for compatability
	"[-Variables::ProhibitReusedNames]", # @ISA
	"";
    close $fh;
    }

t/30_insertfetch.t  view on Meta::CPAN

ok ($sth->finish,			"finish");
undef $sth;

ok ($sth = $dbh->prepare ("insert into $tbl (id, name, val, txt) values (?, ?, ?, ?)"), "prepare insert with field names");
ok ($sth->execute (4, "Vischje", 33, "in het riet"), "insert prepared");
ok ($sth->finish,			"finish");
undef $sth;

ok ($dbh->do ("delete from $tbl"),	"delete all");
ok ($dbh->do ("insert into $tbl (id) values (0)"), "insert just one field");
{   local (@ARGV) = DbFile ($tbl);
    my @csv = <>;
    s/\r?\n\Z// for @csv;
    is (scalar @csv, 2,			"Just two lines");
    is ($csv[0], "id,name,val,txt",	"header");
    is ($csv[1], "0,,,",		"data");
    }

ok ($dbh->do ("drop table $tbl"),	"drop");
ok ($dbh->disconnect,			"disconnect");