MatchPattern MatchPattern use Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(match_pattern); sub match_pattern { my $args = shift; $args->{nums_pos} = $args->{nums_pos} || 0; $args->{from_pos} = $args->{from_pos} || -1; my $patt = $args->... MatchPattern
MatchPattern use Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(match_pattern); sub match_pattern { my $args = shift; $args->{nums_pos} = $args->{nums_pos} || 0; $args->{from_pos} = $args->{from_pos} || -1; my $patt = $args->... MatchPattern