X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSource%2FView.pm;h=232cc2f5da9e36d21fa2e1883d0a27bd8f745544;hb=e5a62c46f;hp=2771ca9185552864c7aa4241933d4649d5963244;hpb=7aaf4192e05ad339072e2dfdcd49aa785cf8572b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/ResultSource/View.pm b/lib/DBIx/Class/ResultSource/View.pm index 2771ca9..232cc2f 100644 --- a/lib/DBIx/Class/ResultSource/View.pm +++ b/lib/DBIx/Class/ResultSource/View.pm @@ -16,7 +16,7 @@ DBIx::Class::ResultSource::View - ResultSource object representing a view =head1 SYNOPSIS - package MyDB::Schema::Result::Year2000CDs; + package MyApp::Schema::Result::Year2000CDs; use base qw/DBIx::Class::Core/; @@ -63,7 +63,7 @@ case replaces the view name in a FROM clause in a subselect. =head1 EXAMPLES -Having created the MyDB::Schema::Year2000CDs schema as shown in the SYNOPSIS +Having created the MyApp::Schema::Year2000CDs schema as shown in the SYNOPSIS above, you can then: $2000_cds = $schema->resultset('Year2000CDs') @@ -76,7 +76,7 @@ above, you can then: If you modified the schema to include a placeholder __PACKAGE__->result_source_instance->view_definition( - "SELECT cdid, artist, title FROM cd WHERE year ='?'" + "SELECT cdid, artist, title FROM cd WHERE year = ?" ); and ensuring you have is_virtual set to true: @@ -106,7 +106,7 @@ You could now say: $schema->resultset('Year2000CDs')->all(); - SELECT cdid, artist, title FROM + SELECT cdid, artist, title FROM (SELECT cdid, artist, title FROM cd WHERE year ='2000') me =back @@ -129,14 +129,14 @@ database-based view. An SQL query for your view. Will not be translated across database syntaxes. -=head2 deploy_depends_on +=head2 deploy_depends_on __PACKAGE__->result_source_instance->deploy_depends_on( - "MyDB::Schema::Result::Year","MyDB::Schema::Result::CD" + ["MyApp::Schema::Result::Year","MyApp::Schema::Result::CD"] ); Specify the views (and only the views) that this view depends on. -Pass this an array reference. +Pass this an array reference of fully qualified result classes. =head1 OVERRIDDEN METHODS @@ -164,12 +164,10 @@ The constructor. 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}||[] } - } - unless ref $new->{deploy_depends_on} eq 'HASH'; + $new->{deploy_depends_on} = + { map { $_ => 1 } + @{ $new->{deploy_depends_on} || [] } } + unless ref $new->{deploy_depends_on} eq 'HASH'; return $new; }