http://qs1969.pair.com?node_id=1202091


in reply to Re: how to find the module of a specific function?
in thread how to find the module of a specific function?

In your example, login necessarily must be a method of the TeamForge6 object

nope, TeamForge6->new can return whatever it wants

Replies are listed 'Best First'.
Re^3: how to find the module of a specific function?
by stevieb (Canon) on Oct 26, 2017 at 20:59 UTC

    One example of what anonymonk is getting at here (and yes, I've done this for legitimate purposes a few times that I can recall):

    use warnings;
use strict;

package Fraud; {
    sub new {
        return bless {}, shift;
    }
    sub login {
        print "HA-HA, I'm not who you think I am!\n";
    }
}

package Trust; {
    sub new {
        return Fraud->new;
    }
    sub login {
        # recently was watching "That 70's Show"
        print "no login for you, dumbass\n";
    }
}

package main; {
    my $obj = Trust->new;
    $obj->login;
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom