Help for this page

Select Code to Download


  1. or download this
    package Foo;

...
    $condition ? $self->re : $self->as_string;
}
1;
  2. or download this
    use Foo;

...
    my $match = ($_ =~ /$r/) ? 1 : 0;
    print "$_ match=$match\n";
}
  3. or download this
    r     = /(?-xism:^[aeiou]+\d+$)/
super = /(?-xism:[A-Z]+[aeiou]+\d+)/
  4. or download this
    r     = /(?-xism:^[aeiou]+\d+$)/
super = /(?-xism:[A-Z]+(?-xism:^[aeiou]+\d+$))/