[Catalyst-commits] r14363 - CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2012-10-31 04:47:07 +0000 (Wed, 31 Oct 2012)
New Revision: 14363

Modified:
   CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
Log:
param validation

Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm	2012-10-31 04:46:37 UTC (rev 14362)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm	2012-10-31 04:47:07 UTC (rev 14363)
@@ -410,6 +410,9 @@
 
 sub has_relationship {
     my ( $self, $obj, $rel_name ) = @_;
+    if (!$obj) {
+        $self->throw_error("obj not defined");
+    }
     return $obj->delegate->meta->relationship($rel_name);
 }