Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 21 lines (14 sloc) 0.384 kB
32cd545 @pjcj import Devel::Cover 0.38
authored
1 #!/usr/bin/perl
2
c7f77d4 @pjcj I think my canonical mail address is here to stay.
authored
3 # Copyright 2004-2012, Paul Johnson (paul@pjcj.net)
32cd545 @pjcj import Devel::Cover 0.38
authored
4
5 # This software is free. It is licensed under the same terms as Perl itself.
6
7 # The latest version of this software should be available from my homepage:
8 # http://www.pjcj.net
9
10 use strict;
11 use warnings;
12
13 sub p
14 {
15 my $x = shift || 11;
16 my $y = shift || [];
17 my $z = shift || {};
18 }
19
20 p $_, $_, $_ for 0, 1;
Something went wrong with that request. Please try again.