view release on metacpan or  search on metacpan

lib/App/ygeo.pm  view on Meta::CPAN

            $result_flag = 0;
        }

        $text_csv->print( $fh, \@row );

    }

    return $result_flag;
}

sub _isin($$) {
    my ( $val, $array_ref ) = @_;

    return 0 unless $array_ref && defined $val;
    for my $v (@$array_ref) {
        return 1 if $v eq $val;
    }

    return 0;
}