[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