X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FController%2FDBIC%2FAPI%2FStoredResultSource.pm;h=b2e1e432cc87e48580a22f583156fc4d95a3de42;hb=f0f07ea33a8782afb563bdc40a607d6823cb0a79;hp=3fc3cf4104be2ae9b63a9ecb892c49c6d3e5c844;hpb=d273984026646e5b57c052deef3fcb9121122060;p=catagits%2FCatalyst-Controller-DBIC-API.git 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