Help for this page

Select Code to Download

Select or download this

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

Select or download this

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