in reply to Perl 28 broke L: How to fix?

Not perfect, but it will fix the majority of cases, including your example...

# add this to L.pm
use Filter::Simple;
FILTER {
    while (/((?:[\w]+::)+)[\w]+\(/g) {
        substr(my $module = $1, -2) = '';
        eval { Module::Load::load($module) }; 
    }
};

[download]
toby döt ink

Replies are listed 'Best First'.
Re^2: Perl 28 broke L: How to fix?
by Anonymous Monk on Oct 29, 2019 at 16:11 UTC
    I added warn after every significant step in L.pm and read the docs for Filter::Simple to understand what your patch is doing. Nice work and thank you! I also learned that the eval doesn't seem necessary. I thought it was killing the warning about autoloading non-methods but I get no warnings for using functions! 
    perl -ML -e 'Data::Dump::dd(File::Spec::Functions::splitpath($^X))'

    [download]
[reply]
[d/l]

      The eval is because the regexp might match a package name but you don't have a module with that name available to be loaded. For example, if "lib/Foo.pm" defines a function called "Foo::Bar::baz", then you run this:

      perl -Ilib -MFoo -ML -e'Foo::Bar::baz(42)'

      [download]

      … without the eval it will die because "lib/Foo/Bar.pm" doesn't exist, even though "lib/Foo/Bar.pm" is unnecessary because "Foo::Bar::baz" is defined elsewhere in a module that successfully loaded.

      toby döt ink
[reply]
[d/l]
[select]
        The eval is because the regexp might match a package name

        I knew there was a reason like that but was puzzled when it worked without eval. Thanks for explaining. I forget to load modules and -ML is less punishment so you can imagine how much I like L! I wonder why Perl doesn't use the failure to load a method or function, because the module isn't loaded, as an opportunity to look for it and load it. For example: 

        perl -e 'Foo->bar'

        [download]
        Can't locate object method "bar" via package "Foo" (perhaps you forgot to load "Foo"?) at -e line 1. (Perhaps Perl, or perhaps *you* forgot to load "Foo" so object method "bar" can be located? ;-) 
        perl -e 'print qq~package Foo; sub bar { print "baz\\n" } 1\n~' > Foo.
+pm; cat Foo.pm

        [download]
        package Foo; sub bar { print "baz\n" } 1 
        perl -I. -MFoo -e 'Foo->bar'

        [download]
        baz 
        perl -I. -ML -e 'Foo->bar'

        [download]
        baz
        I can hack away -M Perl, to locate object method "bar" via package "Foo", why wont you?! 
        perl -I. -e 'eval{Foo->bar};$_=$@;s/.*forgot to load "([^"]+)".*/$1/s;
+eval{require"$_.pm"};Foo->bar'

        [download]
        baz
        And minimize L, to see what's happening, to X.pm: 
        perl -e 'print qq~package X; { package UNIVERSAL; our \$AUTOLOAD; sub 
+AUTOLOAD { warn "\$AUTOLOAD" }} 9\n~' > X.pm; cat X.pm

        [download]
        package X; { package UNIVERSAL; our $AUTOLOAD; sub AUTOLOAD { warn "$AUTOLOAD" }} 9 
        perl -I. -MX -e ''

        [download]
        I don't know what this means: 
        IO::File::DESTROY at X.pm line 1.
IO::File::DESTROY at X.pm line 1 during global destruction.
IO::File::DESTROY at X.pm line 1 during global destruction.
IO::File::DESTROY at X.pm line 1 during global destruction.
IO::File::DESTROY at X.pm line 1 during global destruction.
        But this! 
        perl -I. -MX -e 'Foo->bar'

        [download]
        Yes 
        IO::File::DESTROY at X.pm line 1.
Foo::bar at X.pm line 1.
IO::File::DESTROY at X.pm line 1 during global destruction.
IO::File::DESTROY at X.pm line 1 during global destruction.
IO::File::DESTROY at X.pm line 1 during global destruction.
IO::File::DESTROY at X.pm line 1 during global destruction.
        I know what line 2 means! Perl knows what it means. Why doesn't she connect the dots automatically? I guess it would lead to all sorts of chaos and... L! Is L searching @INC in the background with Module::Load to find Foo.pm (and say Bar->foo that doesn't exist), and that's somehow dangerous (according to L docs)?
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom