Catalyst Improving your Catalyst Application #25

Cleaning up the logic

use Test::More tests => 2;
my $db    = DBICx::TestDatabase->new('MyApp::Schema');
my $user  = $db->resultset('User')->create( ... );
my $logic = WeirdLogic->new( schema => $db, user => $user );

ok $logic;

$logic->frobnicate('OH HAI');
is $db->..., 'OH HAI', 'it works';
Infinity Interactive