- my $cur = (caller 1)[0];
- my $pkg;
- if ($pkg = $args{in}) {
- croak 'Invalid package name' if ref $pkg
- or $pkg =~ /(?:-|[^\w:])/
- or $pkg =~ /(?:\A\d|\b:(?::\d|(?:::+)?\b))/;
- $pkg =~ s/::$//;
- $pkg = $cur . $pkg if $pkg eq '' or $pkg =~ /^::/;
- } else {
- $pkg = $cur;
- }
+ my $cur = (caller 1)[0];
+ my $in = _validate_pkg $args{in}, $cur;