Catalyst Maintainable web apps made easy! #48
my $s = DoQueue::Test::Database->connect;
sub rs { $s->resultset($_[0]) }

my $me  = rs('Users')->create({ openid => 'http://www.jrock.us/' });
my $foo = rs('Users')->create({ openid => 'http://example.com/foo' });
Copyright © 2007 Jonathan Rockway