Perl 5 ¥Þ¥¹¥¿¡¼ Wiki

#!/usr/bin/perl
use Hage;

package Hoge;

sub import {
    use Data::Dumper;
    print Dumper caller ;
    print "---------\n";
}

1;

package Hage;

use Hoge;

sub import {
    goto &Hoge::import;
    # &Hoge::import;
}

1;

$VAR1 = 'Hage';
$VAR2 = 'Hage.pm';
$VAR3 = 3;
---------
$VAR1 = 'main';
$VAR2 = 'a.pl';
$VAR3 = 2;
---------

$VAR1 = 'Hage';
$VAR2 = 'Hage.pm';
$VAR3 = 3;
---------
$VAR1 = 'Hage';
$VAR2 = 'Hage.pm';
$VAR3 = 6;
---------