xref: /openbsd-src/gnu/usr.bin/perl/t/lib/caller/Cpack.pm (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031)
1*f2a19305Safresh1# for use by caller.t for GH #15109 and other tests
2*f2a19305Safresh1package Cpack;
3*f2a19305Safresh1
4*f2a19305Safresh1
5*f2a19305Safresh1my $i = 0;
6*f2a19305Safresh1
7*f2a19305Safresh1while (my ($package, $file, $line) = caller($i++)) {
8*f2a19305Safresh1    push @Cpack::callers, "$file:$line";
9*f2a19305Safresh1}
10*f2a19305Safresh1
11*f2a19305Safresh11;
12