#!/usr/bin/perl
use warnings;
use strict;

{   package Local;

    sub My::frob {
        print __PACKAGE__
    }
}

My::frob();  # Local
[download]

If you want to go that way you can also choose to bless the code ref directly.

Objects don't need to be hashes in Perl.

I'm partial to array backed objects where applicable. But I've never actually tried a blessed code ref... until 5 minutes ago after reading your reply! It might be a good solution to my application.

Out of interest, do you have insight on how perl knows to call the underlying code ref and not a method that may or may not be in the package? An extra lookup/check must be done when called?

#eg
$code_ref_obj->();#calls code ref directly
$code_ref_obj->a_method(); #Call a method on the object
[download]

Thanks again for you comments

> do you have insight on how perl knows to call the underlying code ref

I'm not sure I understand, your demo nailed it.

• $code_ref->(ARGS) without method name is de-referencing the code-ref.
• $obj->method_name(ARGS) with method name is looking up the "blessed" package inside the structure of the scalar and will try to resolve the method there.

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery}