Help for this page

Select Code to Download


  1. or download this
      use vars ();
      sub import {
    ...
        no strict 'vars';
        vars::->import(map { /(.)(.*)/; "$1$pkg\::$2" } qw/ $var1 $var2 $e
    +tc /);
      }
    
  2. or download this
      use vars ();
      sub import {
    ...
        no strict 'vars';
        vars::->import(map { /(.)(.*)/; "$1$pkg\::$2" } qw/ $var1 $var2 $e
    +tc /);
      }