Instead of something like:
my $japan_id = $dbrh->country->where( name => 'Japan' )->next->country_id;
my $makes = $dbrh->make->where( country_id => $japan_id );
my $models = $dbrh->model->where( make_id => scalar $makes->values(
'make_id' ) );
my $cars = $dbrh->car->where( model_id => scalar $models->values(
'model_id' ) );
we'd much prefer:
my $cars = $dbrh->car->where( 'model.make.country.name' => 'Japan' );
just as we can currently say:
print "Made in: " . $car->model->make->country->name . "\n";
Cc: sdmoses