Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my %test = ( 1 => qr/Foo::Bar(?!\s*\()/,
             2 => qr/Foo::Bar(?!\s+\()/
             );
  2. or download this
    
foreach my $teststring ( @strings )
...
        }
    }
}
  3. or download this
    ---Foo::Bar()---
test 1 does not match
...
---  Foo::Bar  ()---
test 1 does not match
test 2 does not match