view release on metacpan or  search on metacpan

lib/FSM/Basic.pm  view on Meta::CPAN

  catseqn
  swapregex
  matching
  final
  matching
  caseinsensitive
  alternation
);


sub qp(&){
    my $s;
    open local *STDOUT, '>', \$s or die "open in-memory file: $!";
    &{$_[0]};
    die $@ if $@;
    $s;
}

sub run {
    my ($self, $in) = @_;
    my $in_lc = lc($in);