1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
7 use DBIx::Class::_Util qw( true false );
8 use Scalar::Util 'refaddr';
10 my @things = ( true, false, true, false, true, false );
12 for (my $i = 0; $i < $#things; $i++ ) {
13 for my $j ( $i+1 .. $#things ) {
15 refaddr( $things[$i] ),
17 refaddr( $things[$j] ),
18 "Boolean thingy '$i' distinct from '$j'",