removed IntrospectableM2M and added a dep to it now that it's a separate dist
groditi [Sat, 8 Nov 2008 19:25:01 +0000 (19:25 +0000)]
Makefile.PL
lib/DBIx/Class/IntrospectableM2M.pm [deleted file]

index 8ea5e17..282fd1d 100644 (file)
@@ -19,6 +19,7 @@ requires 'Config::General' => 0;
 requires 'Test::Class' => 0;
 requires 'Test::Memory::Cycle' => 0;
 requires 'DBIx::Class' => '0.07001';
+requires 'DBIx::Class::IntrospectableM2M' => '0.001000';
 requires 'SQL::Translator' => '0.08';
 requires 'Moose' => '0.58';
 requires 'aliased' => 0;
diff --git a/lib/DBIx/Class/IntrospectableM2M.pm b/lib/DBIx/Class/IntrospectableM2M.pm
deleted file mode 100644 (file)
index e3a921e..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-package DBIx::Class::IntrospectableM2M;
-
-use strict;
-use warnings;
-use base 'DBIx::Class';
-
-#namespace pollution. sadface.
-__PACKAGE__->mk_classdata( _m2m_metadata => {} );
-
-sub many_to_many {
-  my $class = shift;
-  my ($meth_name, $link, $far_side) = @_;
-  my $store = $class->_m2m_metadata;
-  die("You are overwritting another relationship's metadata")
-    if exists $store->{$meth_name};
-
-  my $attrs =
-    {
-     accessor => $meth_name,
-     relation => $link, #"link" table or imediate relation
-     foreign_relation => $far_side, #'far' table or foreign relation
-     (@_ > 3 ? (attrs => $_[3]) : ()), #only store if exist
-     rs_method => "${meth_name}_rs",      #for completeness..
-     add_method => "add_to_${meth_name}",
-     set_method => "set_${meth_name}",
-     remove_method => "remove_from_${meth_name}",
-    };
-
-  #inheritable data workaround/
-  $class->_m2m_metadata({ $meth_name => $attrs, %$store});
-
-  $class->next::method(@_);
-}
-
-1;