File: goto_caller.t

package info (click to toggle)
libgoto-file-perl 0.005-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 152 kB
  • sloc: perl: 72; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 196 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
package Whatever;

BEGIN {
    $main::FILE = __FILE__;
    $main::FILE =~ s/goto_caller\.t/caller.t/;
    print "# goto $main::FILE\n";
}

use goto::file $main::FILE;

die "Should not get here!";