… | |
… | |
96 | |
96 | |
97 | unless (defined &$func) { |
97 | unless (defined &$func) { |
98 | my $pkg = $func; |
98 | my $pkg = $func; |
99 | do { |
99 | do { |
100 | $pkg =~ s/::[^:]+$// |
100 | $pkg =~ s/::[^:]+$// |
101 | or return sub { die "unable to resolve '$func'" }; |
101 | or return sub { die "unable to resolve function '$func'" }; |
102 | |
102 | |
103 | local $@; |
103 | local $@; |
104 | unless (eval "require $pkg; 1") { |
104 | unless (eval "require $pkg; 1") { |
105 | my $error = $@; |
105 | my $error = $@; |
106 | $error =~ /^Can't locate .*.pm in \@INC \(/ |
106 | $error =~ /^Can't locate .*.pm in \@INC \(/ |