Skip to content

Instantly share code, notes, and snippets.

@tyru

tyru/db_args.pl

Created February 24, 2009 02:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tyru/69357 to your computer and use it in GitHub Desktop.
Save tyru/69357 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
db_args.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Perl6::Say;
sub a2 {
{ package DB; () = caller 1 }
say join(", ", @DB::args);
}
sub a1 {
a2();
}
a1( 1, 2 );
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment