in reply to Defining a function in the caller's package

Don't make a closure. Just assign the typeglob. 
package Foo;

sub do_something { print scalar caller, "\n";  }

sub import {
    my $target = caller;
    no strict 'refs';
    *{"$target:\:do_something"} = \&do_something;
}

1;

[download]

Replies are listed 'Best First'.
Re^2: Defining a function in the caller's package
by rovf (Priest) on Aug 11, 2008 at 12:41 UTC
    Don't make a closure. Just assign the typeglob.

    This would not solve my problem (sorry if I was not precise enough about this). If I would adapt your example for my application, it would look more like: 

    package ForeignModule;
sub NEXT { print scalar caller }
=================================
package Foo;
use ForeignModule qw(NEXT);
sub do_something { NEXT(); }
sub import {
    my $target = caller;
    no strict 'refs';
    *{"$target:\:do_something"} = \&do_something;
}
=================================
package main;
use Foo;
do_something();

    [download]
    This would print 'Foo', but I would like to have it printed 'main'. This can be accomplished using, for instance, the eval "package ...." mechanism.

    -- 
    Ronald Fischer <ynnor@mm.st>
[reply]
[d/l]
[select]
      Don't do that. You're assigning a sub in Foo to return the results of a call made to ForeignModule. Then you're setting main::do_something to be the same as that subroutine. What you actually want is not to return the value but to make main::do_something the very same sub as ForeignModule::NEXT. 
      package ForeignModule;
sub NEXT { print scalar caller }
1;

      [download]
      package Foo;
# there is no do_something
sub import {
    my $target = caller;
    no strict 'refs';
    *{"$target:\:do_something"} = \&ForeignModule::NEXT;
}
1;

      [download]
      package main;
use strict;
use warnings;

use Foo;
do_something();

      [download]
[reply]
[d/l]
[select]
        Thanks a lot for the clarification!
[reply]

In Section Seekers of Perl Wisdom