From: Amiri Barksdale Date: Tue, 1 Jun 2010 23:21:22 +0000 (+0000) Subject: Change formatting and correct the docs on RS::View. X-Git-Tag: v0.08124~114^2~14 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41d90e353cfaa8bd9a87df53550b487d9f366c8d;p=dbsrgits%2FDBIx-Class.git Change formatting and correct the docs on RS::View. --- diff --git a/lib/DBIx/Class/ResultSource/View.pm b/lib/DBIx/Class/ResultSource/View.pm index cb20f2c..3cf5cf8 100644 --- a/lib/DBIx/Class/ResultSource/View.pm +++ b/lib/DBIx/Class/ResultSource/View.pm @@ -135,8 +135,8 @@ syntaxes. "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 @@ sub new { 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; } diff --git a/t/lib/ViewDeps.pm b/t/lib/ViewDeps.pm index d4b18e7..6c3a311 100644 --- a/t/lib/ViewDeps.pm +++ b/t/lib/ViewDeps.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE ViewDeps; ## Used in 105view_deps.t