From: Peter Rabbitson Date: Sat, 5 Mar 2016 13:43:44 +0000 (+0100) Subject: These files are not used by anything - remnants from the distant ea2e61bf X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=commitdiff_plain;h=ad3a59bdd40c1f6b5ddf56c0b5f4b716c0ccdacf These files are not used by anything - remnants from the distant ea2e61bf --- diff --git a/t/cdbi/testlib/MyFilm.pm b/t/cdbi/testlib/MyFilm.pm deleted file mode 100644 index 40ecf7e..0000000 --- a/t/cdbi/testlib/MyFilm.pm +++ /dev/null @@ -1,27 +0,0 @@ -package # hide from PAUSE - MyFilm; - -use warnings; -use strict; - -use base 'MyBase'; -use MyStarLink; - -__PACKAGE__->set_table(); -__PACKAGE__->columns(All => qw/filmid title/); -__PACKAGE__->has_many(_stars => 'MyStarLink'); -__PACKAGE__->columns(Stringify => 'title'); - -sub _carp { } - -sub stars { map $_->star, shift->_stars } - -sub create_sql { - return qq{ - filmid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY, - title VARCHAR(255) - }; -} - -1; - diff --git a/t/cdbi/testlib/MyStar.pm b/t/cdbi/testlib/MyStar.pm deleted file mode 100644 index 100fbf4..0000000 --- a/t/cdbi/testlib/MyStar.pm +++ /dev/null @@ -1,23 +0,0 @@ -package # hide from PAUSE - MyStar; - -use warnings; -use strict; - -use base 'MyBase'; - -__PACKAGE__->set_table(); -__PACKAGE__->columns(All => qw/starid name/); -__PACKAGE__->has_many(films => [ MyStarLink => 'film' ]); - -# sub films { map $_->film, shift->_films } - -sub create_sql { - return qq{ - starid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY, - name VARCHAR(255) - }; -} - -1; - diff --git a/t/cdbi/testlib/MyStarLink.pm b/t/cdbi/testlib/MyStarLink.pm deleted file mode 100644 index 27254d8..0000000 --- a/t/cdbi/testlib/MyStarLink.pm +++ /dev/null @@ -1,23 +0,0 @@ -package # hide from PAUSE - MyStarLink; - -use warnings; -use strict; - -use base 'MyBase'; - -__PACKAGE__->set_table(); -__PACKAGE__->columns(All => qw/linkid film star/); -__PACKAGE__->has_a(film => 'MyFilm'); -__PACKAGE__->has_a(star => 'MyStar'); - -sub create_sql { - return qq{ - linkid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY, - film TINYINT NOT NULL, - star TINYINT NOT NULL - }; -} - -1; - diff --git a/t/cdbi/testlib/MyStarLinkMCPK.pm b/t/cdbi/testlib/MyStarLinkMCPK.pm deleted file mode 100644 index 1173163..0000000 --- a/t/cdbi/testlib/MyStarLinkMCPK.pm +++ /dev/null @@ -1,30 +0,0 @@ -package # hide from PAUSE - MyStarLinkMCPK; - -use warnings; -use strict; - -use base 'MyBase'; - -use MyStar; -use MyFilm; - -# This is a many-to-many mapping table that uses the two foreign keys -# as its own primary key - there's no extra 'auto-inc' column here - -__PACKAGE__->set_table(); -__PACKAGE__->columns(Primary => qw/film star/); -__PACKAGE__->columns(All => qw/film star/); -__PACKAGE__->has_a(film => 'MyFilm'); -__PACKAGE__->has_a(star => 'MyStar'); - -sub create_sql { - return qq{ - film INTEGER NOT NULL, - star INTEGER NOT NULL, - PRIMARY KEY (film, star) - }; -} - -1; - diff --git a/t/cdbi/testlib/OtherFilm.pm b/t/cdbi/testlib/OtherFilm.pm deleted file mode 100644 index a0afdd8..0000000 --- a/t/cdbi/testlib/OtherFilm.pm +++ /dev/null @@ -1,23 +0,0 @@ -package # hide from PAUSE - OtherFilm; - -use warnings; -use strict; - -use base 'Film'; - -__PACKAGE__->set_table('Different_Film'); - -sub create_sql { - return qq{ - title VARCHAR(255), - director VARCHAR(80), - codirector VARCHAR(80), - rating CHAR(5), - numexplodingsheep INTEGER, - hasvomit CHAR(1) - }; -} - -1; -