join argument validation

[dbsrgits/DBIx-Class-ParameterizedJoinHack.git] / lib / DBIx / Class / ResultSet / ParameterizedJoinHack.pm

diff --git a/lib/DBIx/Class/ResultSet/ParameterizedJoinHack.pm b/lib/DBIx/Class/ResultSet/ParameterizedJoinHack.pm
index 4de2973..75db8b7 100644 (file)
--- a/lib/DBIx/Class/ResultSet/ParameterizedJoinHack.pm
+++ b/lib/DBIx/Class/ResultSet/ParameterizedJoinHack.pm
@@ -12,6 +12,15 @@ sub _parameterized_join_store {
 
 sub with_parameterized_join {
   my ($self, $rel, $params) = @_;
+  die "Missing relation name in with_parameterized_join"
+    unless defined $rel;
+  {
+    my $params_ref = ref($params);
+    $params_ref = 'non-reference-value'
+      unless $params_ref;
+    die "Parameters value must be a hash ref, not ${params_ref}"
+      unless $params_ref eq 'HASH';
+  }
   $self->search_rs(
     {},
     { join => $rel,