Select Code to Download

*isa = \&UNIVERSAL::isa;

sub foo {
...
    return unless isa( $date, 'ARRAY' );
    bar( $date );
}