These files are not used by anything - remnants from the distant ea2e61bf
Peter Rabbitson [Sat, 5 Mar 2016 13:43:44 +0000 (14:43 +0100)]
t/cdbi/testlib/MyFilm.pm [deleted file]
t/cdbi/testlib/MyStar.pm [deleted file]
t/cdbi/testlib/MyStarLink.pm [deleted file]
t/cdbi/testlib/MyStarLinkMCPK.pm [deleted file]
t/cdbi/testlib/OtherFilm.pm [deleted file]

diff --git a/t/cdbi/testlib/MyFilm.pm b/t/cdbi/testlib/MyFilm.pm
deleted file mode 100644 (file)
index 40ecf7e..0000000
+++ /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 (file)
index 100fbf4..0000000
+++ /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 (file)
index 27254d8..0000000
+++ /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 (file)
index 1173163..0000000
+++ /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 (file)
index a0afdd8..0000000
+++ /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;
-