Help for this page

Select Code to Download


  1. or download this
            
    #!/usr/bin/perl
    use strict; use warnings;
    ...
        my @foo = caller( ( $level || 0 ) + 3 );
        wantarray ? @DB::args : \@DB::args;
    }