Help for this page

Select Code to Download


  1. or download this
    BEGIN { $^P |= 0x400;};
use v5.12; 
...

*DB::dbline = $::{ "_<" . __FILE__ };
ddx @DB::dbline;
  2. or download this
    perl /home/lanx/perl/pm/source_introspection.pl 
some code
# source_introspection.pl:9: (
...
#   "ddx \@DB::dbline;\n",
# )