-package # hide from PAUSE
+package # hide from PAUSE
DBICTest::Schema::Artist;
use base qw/DBICTest::BaseResult/;
+use Carp qw/confess/;
__PACKAGE__->table('artist');
__PACKAGE__->source_info({
sub {
my $args = shift;
+ # This is for test purposes only. A regular user does not
+ # need to sanity check the passed-in arguments, this is what
+ # the tests are for :)
+ my @missing_args = grep { ! defined $args->{$_} }
+ qw/self_alias foreign_alias self_resultsource foreign_relname/;
+ confess "Required arguments not supplied to custom rel coderef: @missing_args\n"
+ if @missing_args;
+
return (
{ "$args->{foreign_alias}.artist" => { '=' => { -ident => "$args->{self_alias}.artistid"} },
"$args->{foreign_alias}.year" => { '>' => 1979, '<' => 1990 },
cds_84 => 'DBICTest::Schema::CD',
sub {
my $args = shift;
+
+ # This is for test purposes only. A regular user does not
+ # need to sanity check the passed-in arguments, this is what
+ # the tests are for :)
+ my @missing_args = grep { ! defined $args->{$_} }
+ qw/self_alias foreign_alias self_resultsource foreign_relname/;
+ confess "Required arguments not supplied to custom rel coderef: @missing_args\n"
+ if @missing_args;
+
return (
{ "$args->{foreign_alias}.artist" => { -ident => "$args->{self_alias}.artistid" },
"$args->{foreign_alias}.year" => 1984,
cds_90s => 'DBICTest::Schema::CD',
sub {
my $args = shift;
+
+ # This is for test purposes only. A regular user does not
+ # need to sanity check the passed-in arguments, this is what
+ # the tests are for :)
+ my @missing_args = grep { ! defined $args->{$_} }
+ qw/self_alias foreign_alias self_resultsource foreign_relname/;
+ confess "Required arguments not supplied to custom rel coderef: @missing_args\n"
+ if @missing_args;
+
return (
{ "$args->{foreign_alias}.artist" => { -ident => "$args->{self_alias}.artistid" },
"$args->{foreign_alias}.year" => { '>' => 1989, '<' => 2000 },