Select Code to Download

-*- mode: compilation; default-directory: "d:/Users/RolfLangsdorf/pm/"
+ -*-
Compilation started at Thu Sep 14 16:09:01
...
p                 <#> gv[*print_calling_line] s ->q

Compilation finished at Thu Sep 14 16:09:01

#!/usr/bin/perl -w
use strict;
...
my $walker = B::Concise::compile('tst'); 
$walker->();