$n eq 'null' ? substr(ppname($_[0]->targ), 3) : $n
}
-sub normalize ($) {
- my $r = $_[0];
- return unless defined $r;
- return { 0 => 1 } unless keys %$r;
- my $total = count $r;
- return { map { $_ => $r->{$_} / $total } keys %$r };
-}
-
sub scale {
my ($c, $r) = @_;
return unless defined $r;