Help for this page

Select Code to Download


  1. or download this
    $reg = {
    url  => qr[^http://],
};
  2. or download this
    sub AUTOLOAD {
    our $AUTOLOAD;
...
        return 1 if $arg =~ /$val/;
    }
}
  3. or download this
    $reg = {
    url  => qr[^http://],
    file => qr[^[a-Z]:/],
};
  4. or download this
    use Export;

...
    no strict 'refs';
    grep {*$_{CODE}} keys %Str::;
};