呼び出し元のサブルーチンを呼び出す

main.pl

#!/usr/bin/env perl

use strict;
use warnings;

use MySub;

sub callback {
	print "in main::callback($_[0])\n";
	return "main::callback($_[0])";
}

MySub::test_sub('from main');

MySub.pm

package MySub;
use strict;
use warnings;

use MySub2;

sub callback {
	print "in MySub::callback($_[0])\n";
}

sub test_sub {
	print "in MySub::test_sub($_[0])\n";
	MySub2::test_sub('from MySub');
	{
		no strict 'refs';
		&{(caller)[0].'::callback'}('from MySub')."\n";
	}
}


1;

MySub2.pm

package MySub2;
use strict;
use warnings;

use Data::Dumper;

use MySub2;

sub test_sub {
	print "in MySub2::test_sub($_[0])\n";
	{
		no strict 'refs';
		&{(caller)[0].'::callback'}('from MySub2')."\n";
	}
}

1;