Help for this page

Select Code to Download


  1. or download this
    @EXPORT = qw($varnameA %varnameB &varnameC);
    
  2. or download this
        foreach $sym (@imports) {
            # shortcut for the common case of no type character
    ...
                $type eq '*' ?  *{"${pkg}::$sym"} :
                do { require Carp; Carp::croak("Can't export symbol: $type
    +$sym") };
        }