view release on metacpan or  search on metacpan

t/integration.t  view on Meta::CPAN

		databases => [$cust, $score], join_column => $JC, join_type => 'left',
		filters   => { 0 => { tier => 'gold' } },
	);
	is($j->count(), $GOLD_COUNT,
		'primary-DB filter restricts key set to gold-tier customers only');
};

diag('section 5 done') if $ENV{TEST_VERBOSE};

# ===========================================================================
# SECTION 6 -- Column removal cascade (5 subtests)
#
# remove_column must propagate to columns(), schema(), result rows, and the
# routing table.  Criteria targeting a removed column are silently carp()ed
# and dropped.  The join_column itself cannot be removed.
# ===========================================================================

subtest 'remove_column: column absent from columns(), schema(), and query results' => sub {
	plan tests => 3;
	my $j = Database::Join->new(databases => [$cust, $score], join_column => $JC);
	$j->remove_column('email');