Select Code to Download

sub has_red_table {
    my $self = shift;
...
    }
    return 0;
}

use strict;
use warnings;
...
print $party1->has_red_table, $/;
print $party2->has_red_table, $/;