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 :)

##</code><code>##

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

##</code><code>##

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