Re: [Fun With Perl] Package Retrofit

[John Porter <jdporter@min.net>]

Chris Nandor wrote:
> 
> I would do this instead, FWIW:
> 
>     if (not can Mozilla::LDAP::Entry 'getLDIFrecords') {
>         local $SIG{__WARN__} = sub {
>             warn @_ unless $_[0] =~ /Subroutine getLDIFrecords redefined/
>         };
> 
>         *Mozilla::LDAP::Entry::getLDIFrecords = sub {
>             [snip]
>         };
>     }

But why would you get the warning if you've already ascertained that
the function isn't defined?

I would do this, because I like poetry:

    can Mozilla::LDAP::Entry 'getLDIFrecords' or
       *Mozilla::LDAP::Entry::getLDIFrecords = sub {
           [snip]
       };

And isn't there a more standard way to accomplish this using the autoloader?

John Porter


==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org