X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi%2Ftestlib%2FFilm.pm;h=3bbd755e0ff8ac3f75949562e977f2e78c6b67a8;hb=4a233f3019d2baa4bf2abee0c873c74d5cdf3a11;hp=b1f50acc9745a700c2e51868b75f8f9b1bb730c8;hpb=97d61088b16ce8d2ffcbb4a2433509d65f7f7449;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi/testlib/Film.pm b/t/cdbi/testlib/Film.pm index b1f50ac..3bbd755 100644 --- a/t/cdbi/testlib/Film.pm +++ b/t/cdbi/testlib/Film.pm @@ -1,9 +1,11 @@ -package # hide from PAUSE +package # hide from PAUSE Film; -use base 'DBIC::Test::SQLite'; +use warnings; use strict; +use base 'DBIC::Test::SQLite'; + __PACKAGE__->set_table('Movies'); __PACKAGE__->columns('Primary', 'Title'); __PACKAGE__->columns('Essential', qw( Title )); @@ -11,23 +13,23 @@ __PACKAGE__->columns('Directors', qw( Director CoDirector )); __PACKAGE__->columns('Other', qw( Rating NumExplodingSheep HasVomit )); sub create_sql { - return qq{ - title VARCHAR(255), - director VARCHAR(80), - codirector VARCHAR(80), - rating CHAR(5), - numexplodingsheep INTEGER, - hasvomit CHAR(1) + return qq{ + title VARCHAR(255), + director VARCHAR(80), + codirector VARCHAR(80), + rating CHAR(5), + numexplodingsheep INTEGER, + hasvomit CHAR(1) } } -sub create_test_film { - return shift->create({ - Title => 'Bad Taste', - Director => 'Peter Jackson', - Rating => 'R', - NumExplodingSheep => 1, - }); +sub create_test_film { + return shift->create({ + Title => 'Bad Taste', + Director => 'Peter Jackson', + Rating => 'R', + NumExplodingSheep => 1, + }); } package DeletingFilm;