Select Code to Download

sub new {
    my ($pkg, $holes, $level) = @_;
...
    }, $pkg;
    return $obj;
}

$holes->[$i] = new hole( ( $i == 4 ) ? 'white' : 'black' , $i, $holeLe
+vel );