t/lib/caller/Cpack.pm


1
2
3
4
5
6
7
8
9
10
11

# for use by caller.t for GH #15109 and other tests
package Cpack;


my $i = 0;

while (my ($package, $file, $line) = caller($i++)) {
    push @Cpack::callers, "$file:$line";
}

1;