+ $callback->($k, undef, undef, $v);
+ }
+ # send per-type stats
+ while(my ($k, $v) = each %{$self->{typestats}})
+ {
+ $callback->(undef, $k, undef, $v);
+ }
+ # send per-type-map stats
+ while(my ($k1, $v1) = each %{$self->{typemapstats}})
+ {
+ while(my ($k2, $v2) = each %$v1)
+ {
+ $callback->(undef, $k1, $k2, $v2);
+ }