X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=d5a96452a1418f7a0e3382d3e9c32d7ae33151f9;hp=f21c8f81446aa64aff112b2f49f22bfb7fa47939;hb=462a647c8b471a029c5dc2527bd4b78e64d93cee;hpb=91deeda20173f3d35c5b936c9e6db1cbe08f0e00

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index f21c8f8..d5a9645 100644
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -178,12 +178,6 @@ sub name ($) {
  $n eq 'null' ? substr(ppname($_[0]->targ), 3) : $n
 }
 
-sub scale {
- my ($c, $r) = @_;
- return unless defined $r;
- return (ref $r) ? { map { $_ => $r->{$_} * $c } keys %$r } : { $r => $c };
-}
-
 sub power {
  my ($p, $n, $c) = @_;
  return unless defined $p;