2Re: Debugging DBD::Chart

Seems to me like the datastructure is more complex than it needs to be, but if it gets the job done, cool. :) However, there is no need to use map in void context:

if (@sorted > $max_wedges) {
   $events{other}{count} += $_ for @sorted[$max_wedges..$#sorted];
   @sorted[$max_wedges..$#sorted] = ('other'); # loaded gun? 
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on 2Re: Debugging DBD::Chart Download Code