[Bast-commits] r9534 - in DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps: lib/DBIx/Class/ResultSource t/lib

amiri at dev.catalyst.perl.org amiri at dev.catalyst.perl.org
Tue Jun 1 23:21:22 GMT 2010


Author: amiri
Date: 2010-06-02 00:21:22 +0100 (Wed, 02 Jun 2010)
New Revision: 9534

Modified:
   DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm
   DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps.pm
Log:
Change formatting and correct the docs on RS::View.



Modified: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm	2010-06-01 23:16:05 UTC (rev 9533)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm	2010-06-01 23:21:22 UTC (rev 9534)
@@ -135,8 +135,8 @@
       "MyDB::Schema::Result::Year","MyDB::Schema::Result::CD"
       );
 
-Specify the result classes or other views that comprise this view.
-Pass this method an array reference.
+Specify the views (and only the views) that this view depends on.
+Pass this an array reference.
 
 =head1 OVERRIDDEN METHODS
 
@@ -157,7 +157,10 @@
     my ( $self, @args ) = @_;
     my $new = $self->next::method(@args);
     $new->{deploy_depends_on}
-        = { map { $_->result_source_instance->name => 1 } @{ $new->{deploy_depends_on}||[] } }
+        = {
+            map { $_->result_source_instance->name => 1 }
+            @{ $new->{deploy_depends_on}||[] }
+          }
         unless ref $new->{deploy_depends_on} eq 'HASH';
     return $new;
 }

Modified: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps.pm	2010-06-01 23:16:05 UTC (rev 9533)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps.pm	2010-06-01 23:21:22 UTC (rev 9534)
@@ -1,4 +1,4 @@
-package # hide from PAUSE
+package    # hide from PAUSE
     ViewDeps;
 ## Used in 105view_deps.t
 




More information about the Bast-commits mailing list