Help for this page

Select Code to Download


  1. or download this
    package myblib;
sub foo { print +(caller(0))[3],"(@_)\n" }
1;
  2. or download this
    package vlog;
use myblib;
sub bar { print +(caller(0))[3],"(@_)\n" }
1;
  3. or download this
    # line 1 gen.pl
use vlog;
...
myblib::foo(main=SCALAR(0x818c688) 4)
myblib::foo(5)
myblib::foo(main=SCALAR(0x818c688) 6)