Help for this page

Select Code to Download


  1. or download this
    ## not the exact code, but a close facsimile from memory:
    sub make_matcher { eval qq{sub { \$_[0] =~ /$_[0]/o } } }
    my $matcher = make_matcher( "dynamic" );
    if( $matcher->( "dynamicorama" ) ) { # ... }