Real Life Example
file: code/validad/login.t 1: use 5.010; 2: use strict; 3: use warnings; 4: use lib 't/'; 5: use utf8; 6: 7: use Winxle::Run; 8: use Test::Most; 9: 10: use testlib::Web; 11: use testlib::Fixtures::User; 12: 13: my $t = testlib::Web->new; 14: my ($controller, $dbic) = $t->init_dbic_txn('User'); 15: my $user = testlib::Fixtures::User->new(dbic=>$dbic)->bart;