Select Code to Download

2;0 juerd@ouranos:/usr/lib/perl$ perl -pe'$_ = "" unless /sub\s+[A-Z_]
++\s*\(\s*\)/' * */* */*/* */*/*/* | wc -l
   1094
# Sorry for the ugly */*-stuff. I didn't feel like
# using File::Find in a oneliner :)

2;0 juerd@ouranos:/usr/lib/perl$ perl -pe'$_ = "" unless /use\s*consta
+nt/' * */* */*/* */*/*/* | wc -l
      0

        if (@_ == 1) {
            my $scalar = $_[0];
...
        } else {
            *$full_name = sub () { };
        }