view release on metacpan or  search on metacpan

lib/Module/Runtime.pm  view on Meta::CPAN

                *{$callpkg."::".$1} = \$$1;
            } else {
                *{$callpkg."::".$_} = \&$_;
            }
        } else {
            $errs .= "\"$_\" is not exported by the $me module\n";
        }
    }
    if($errs ne "") {
        die sprintf "%sCan't continue after import errors at %s line %u.\n",
            $errs, (caller)[1,2];
    }
}

# Logic duplicated from Params::Classify.  Duplicating it here avoids
# an extensive and potentially circular dependency graph.
sub _is_string($) {
    my($arg) = @_;
    return defined($arg) && ref(\$arg) eq "SCALAR";
}