Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 17 lines (11 sloc) 0.217 kB
fcc5114 @petdance first draft of rebuilt scraps
authored
1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5
6 my $x = foo();
7
8 sub foo {
9 bar(1,2,3);
10 }
11
12 sub bar {
13 my ($p,$f) = (caller(0))[0,3];
14
15 {use Data::Dumper; local $Data::Dumper::Sortkeys=1; print Dumper( $p, $f )}
16 }
Something went wrong with that request. Please try again.