reading your comment I become curious about how many lines I put on my subs and wrote this little script: counting the lines on your subs.

Running it over my code I have found that most of my subs are below 10 lines, and the most frequent size is 1 line (~18%), even when I use mcoder or Class::MethodMaker to generate common accessors that are not counted!