Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 22 lines (16 sloc) 0.398 kb
9f93b0b @pjcj import Devel::Cover 0.35
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)
9f93b0b @pjcj import Devel::Cover 0.35
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 sub main
11 {
12 my ($debug) = @_;
13 print "main\n";
14 print "debug1\n" if $debug;
15 if ($debug)
16 {
17 print "debug2\n";
18 }
19 }
20
21 main 0;
Something went wrong with that request. Please try again.