package My::Test;
use base 'Test::Class';
sub startup : Tests(startup => 1) {
$schema = NAP::PRL::Schema->connect( $dsn, $user, $password );
}
sub setup : Test(setup) {
$schema->txn_begin;
}
sub teardown : Test(teardown) {
$schema->txn_rollback;
}
A piggy bank of commands, fixes, succinct reviews, some mini articles and technical opinions from a (mostly) Perl developer.
Jump to
Which version of Ubuntu?
DBIx::Class basics
# SELECT COUNT(*) FROM product WHERE id = 104316my $rs = $schema->resultset( 'Public::Product' )->search( { id => 104316 });print "test: ".$rs->all;
Subscribe to:
Posts (Atom)


