Help for this page

Select Code to Download


  1. or download this
    {
  my %cache;
  sub my_qr { $cache{ $_[0] } ||= qr/$_[0]/ }
}