perltidy all classes

[catagits/Catalyst-Controller-DBIC-API.git] / lib / Catalyst / Controller / DBIC / API / StoredResultSource.pm

diff --git a/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm b/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm
index 2d9f9f3..6c04d0e 100644 (file)
--- a/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm
+++ b/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm
@@ -1,4 +1,5 @@
 package Catalyst::Controller::DBIC::API::StoredResultSource;
+
 #ABSTRACT: Provides accessors for static resources
 
 use Moose::Role;
@@ -23,7 +24,11 @@ result_class is the name of the resultset class that is the model for this contr
 
 =cut
 
-has 'result_class' => ( is => 'ro', isa => Maybe[Str], default => 'DBIx::Class::ResultClass::HashRefInflator' );
+has 'result_class' => (
+    is      => 'ro',
+    isa     => Maybe [Str],
+    default => 'DBIx::Class::ResultClass::HashRefInflator'
+);
 
 =method_public stored_result_source
 
@@ -31,8 +36,7 @@ This is the result source for the controller
 
 =cut
 
-sub stored_result_source
-{
+sub stored_result_source {
     return shift->stored_model->result_source;
 }
 
@@ -42,9 +46,8 @@ This is the model for the controller
 
 =cut
 
-sub stored_model
-{
-    return $_[0]->_application->model($_[0]->class);
+sub stored_model {
+    return $_[0]->_application->model( $_[0]->class );
 }
 
 =method_public check_has_column
@@ -53,37 +56,36 @@ Convenience method for checking if the column exists in the result source
 
 =cut
 
-sub check_has_column
-{
-    my ($self, $col) = @_;
+sub check_has_column {
+    my ( $self, $col ) = @_;
     die "Column '$col' does not exist in ResultSet '${\$self->class}'"
         unless $self->stored_result_source->has_column($col);
 }
 
 =method_public check_has_relation
 
-check_has_relation meticulously delves into the result sources relationships to determine if the provided relation is valid. Accepts a relation name, and optional HashRef indicating a nested relationship. Iterates, and recurses through provided arguments until exhausted. Dies if at any time the relationship or column does not exist.
+check_has_relation meticulously delves into the result sources relationships to
+determine if the provided relation is valid.
+Accepts a relation name, an optional HashRef indicating a nested relationship.
+Iterates and recurses through provided arguments until exhausted.
+Dies if at any time the relationship or column does not exist.
 
 =cut
 
-sub check_has_relation
-{
-    my ($self, $rel, $other, $nest, $static) = @_;
+sub check_has_relation {
+    my ( $self, $rel, $other, $nest, $static ) = @_;
 
     $nest ||= $self->stored_result_source;
 
-    if(HashRef->check($other))
-    {
+    if ( HashRef->check($other) ) {
         my $rel_src = $nest->related_source($rel);
         die "Relation '$rel_src' does not exist" if not defined($rel_src);
 
-        while(my($k,$v) = each %$other)
-        {
-            $self->check_has_relation($k, $v, $rel_src, $static);
+        while ( my ( $k, $v ) = each %$other ) {
+            $self->check_has_relation( $k, $v, $rel_src, $static );
         }
     }
-    else
-    {
+    else {
         return 1 if $static && ArrayRef->check($other) && $other->[0] eq '*';
         die "Relation '$rel' does not exist in ${\$nest->from}"
             unless $nest->has_relationship($rel) || $nest->has_column($rel);
@@ -93,34 +95,28 @@ 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
-        {
-            while(my($k,$v) = each %$col_rel)
-            {
-                $self->check_has_relation($k, $v, undef, $static);
+sub check_column_relation {
+    my ( $self, $col_rel, $static ) = @_;
+
+    if ( HashRef->check($col_rel) ) {
+        try {
+            while ( my ( $k, $v ) = each %$col_rel ) {
+                $self->check_has_relation( $k, $v, undef, $static );
             }
         }
-        catch
-        {
+        catch {
             # not a relation but a column with a predicate
-            while(my($k, undef) = each %$col_rel)
-            {
+            while ( my ( $k, undef ) = each %$col_rel ) {
                 $self->check_has_column($k);
             }
         }
     }
-    else
-    {
+    else {
         $self->check_has_column($col_rel);
     }
 }