Re^2: how to find the module of a specific function?


Syntactic Confectionery Delight
	PerlMonks

Re^2: how to find the module of a specific function?

by Anonymous Monk

on Oct 26, 2017 at 20:14 UTC ( [id://1202091]=note: print w/replies, xml )

Need Help??

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

Comment on Re^2: how to find the module of a specific function? Download Code

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