[Bast-commits] r3530 - trunk/DBIx-Class/lib/DBIx/Class/Relationship

[purge at dev.catalyst.perl.org]

Author: purge
Date: 2007-06-26 20:19:08 +0100 (Tue, 26 Jun 2007)
New Revision: 3530

Modified:
   trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm
Log:
add_to returns inserted row in many_to_many relation

Modified: trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm	2007-06-26 13:19:33 UTC (rev 3529)
+++ trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm	2007-06-26 19:19:08 UTC (rev 3530)
@@ -62,6 +62,7 @@
       $link->set_from_related($f_rel, $obj);
       $link->set_columns($link_vals);
       $link->insert();
+	  return $obj;
     };
 
     *{"${class}::${set_meth}"} = sub {