Help for this page

Select Code to Download


  1. or download this
    package gen_var;
    use base 'Exporter';
    ...
    my $export_vars = join(', ', @exported_symbols);
    eval "\@EXPORT_OK = ($export_vars)";
    1;
    
  2. or download this
    use gen_var($one);
    print $one;