X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-DBIC-API.git;a=blobdiff_plain;f=lib%2FCatalyst%2FController%2FDBIC%2FAPI%2FStoredResultSource.pm;h=b2e1e432cc87e48580a22f583156fc4d95a3de42;hp=3fc3cf4104be2ae9b63a9ecb892c49c6d3e5c844;hb=406086f3da2f020cf98b01d994ffe2d1b8a478c4;hpb=3d85db11441182964cf35818ed25265eec1b74e2 diff --git a/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm b/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm index 3fc3cf4..b2e1e43 100644 --- a/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm +++ b/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm @@ -44,7 +44,7 @@ has 'stored_model' => ); sub _build_stored_model -{ +{ return $_[0]->_application->model($_[0]->class); } @@ -75,7 +75,7 @@ check_has_relation meticulously delves into the result sources relationships to sub check_has_relation { my ($self, $rel, $other, $nest, $static) = @_; - + $nest ||= $self->stored_result_source; if(HashRef->check($other)) @@ -99,14 +99,14 @@ sub check_has_relation =method_public check_column_relation -Convenience method to first check if the provided argument is a valid relation (if it is a HashRef) or column. +Convenience method to first check if the provided argument is a valid relation (if it is a HashRef) or column. =cut sub check_column_relation { my ($self, $col_rel, $static) = @_; - + if(HashRef->check($col_rel)) { try