standard function "caller"

caller.pl

use strict;
use warnings;
use utf8;
use Piyo;
use DDP {deparse => 1,};

warn "I'm " . __PACKAGE__ . "\n";
my @context = caller;
p @context;

my $p = Piyo->new;

__END__
I'm main
[]
I'm Piyo
I'm Hoge
[
    [0] "Piyo",
    [1] "Piyo.pm",
    [2] 11
]
[
    [0] "main",
    [1] "caller.pl",
    [2] 10
]

Hoge.pm

package Hoge;
use strict;
use warnings;
use utf8;
use DDP {deparse => 1,};

sub new {
    my ($class, %args) = @_;
    warn "I'm " . __PACKAGE__ . "\n";
    my @context = caller;
    p @context;
    bless \%args, $class;
}

1;

Piyo.pm

package Piyo;
use strict;
use warnings;
use utf8;
use Hoge;
use DDP {deparse => 1,};

sub new {
    my ($class, %args) = @_;
    warn "I'm " . __PACKAGE__ . "\n";
    $args{Hoge} = Hoge->new;
    my @context = caller;
    p @context;
    bless \%args, $class;
}

1;