Help for this page

Select Code to Download


  1. or download this
    my $r = do {
   no strict 'refs';
   \${"${pkg}::$var"}
};
  2. or download this
    my $r = do {
   $pkg_ref = $r->{$_."::"} for split(/::/, $pkg);
   \($pkg_ref->{$var})
};