X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fprefetch%2Fstandard.t;h=66479b0314c641f218dadccee1bb2af9035012e1;hb=c3e9f7189094e94137356251c4f0b1f1cbfeb04a;hp=72426eecce06e819be4c1f5df4dfb452ef159d6d;hpb=8bcbe2394589c26267f2d87ef70a5b4313cf120f;p=dbsrgits%2FDBIx-Class.git diff --git a/t/prefetch/standard.t b/t/prefetch/standard.t index 72426ee..66479b0 100644 --- a/t/prefetch/standard.t +++ b/t/prefetch/standard.t @@ -5,8 +5,6 @@ use Test::More; use Test::Exception; use lib qw(t/lib); use DBICTest; -use Data::Dumper; -use IO::File; my $schema = DBICTest->init_schema(); my $orig_debug = $schema->storage->debug; @@ -20,8 +18,6 @@ $schema->storage->debug(1); my $search = { 'artist.name' => 'Caterwauler McCrae' }; my $attr = { prefetch => [ qw/artist liner_notes/ ], order_by => 'me.cdid' }; -my $search_str = Dumper($search); -my $attr_str = Dumper($attr); my $rs = $schema->resultset("CD")->search($search, $attr); my @cd = $rs->all;