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)