CODEWITHSUNDEEP
perlobjectsubroutinemethod-invocation
Diego Saravia
Diego Saravia

Reputation: 115

How to check if a subroutine was called with an object invocation method or not

You can invoke a subroutine as a method using the two syntaxes in the example below.

But you can also invoke it not as an object.

#====================================================
package Opa;
sub opa{
    $first= shift;
    $second= shift;
    print "Opa $first -- $second\n";
}

package main;
# as object:
Opa->opa("uno");
opa Opa ("uno");
# not as object
Opa::opa("uno","segundo");
Opa::opa("Opa","uno");
#====================================================

It there a way, from inside the subroutine, to know "in general", what kind of invocation a sub has received?.

Upvotes: 6

Views: 347

Answers (2)

stevieb
stevieb

Reputation: 9296

You can also do this with the ref() function instead of using external modules:

use warnings;
use strict;

package Test;

sub new {
    return bless {}, shift;
}
sub blah {
    if (ref $_[0]){
        print "method call\n";
    }
    else {
        print "class call\n";
    }
}

package main;

my $obj = Test->new;

$obj->blah;
Test::blah;

Output:

method call
class call

Upvotes: 0

Chankey Pathak
Chankey Pathak

Reputation: 21666

You can use called_as_method from Devel::Caller.

use Devel::Caller qw( called_as_method );
sub opa{
    print called_as_method(0) ? 'object: ' : 'class: ';
    $first= shift;
    $second= shift;
    print "Opa $first -- $second\n";
}

Output:

object: Opa Opa -- uno
object: Opa Opa -- uno
class: Opa uno -- segundo
class: Opa Opa -- uno

Upvotes: 2

Related Questions