Rewrite count in XS. List::Util::sum isn't required anymore

[perl/modules/Sub-Nary.git] / lib / Sub / Nary.pm

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index aa2fc87359590e8ba275516f0f084291d8b90d4f..f538fc7c9eddbe327daa52c6f27630a76285b44d 100644 (file)
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -6,7 +6,7 @@ use strict;
 use warnings;
 
 use Carp qw/croak/;
-use List::Util qw/reduce sum/;
+use List::Util qw/reduce/;
 
 use B qw/class ppname svref_2object OPf_KIDS/;
 
@@ -192,13 +192,6 @@ sub list ($) {
  return $r->{list} and 1 == scalar keys %$r;
 }
 
-sub count ($) {
- my $r = $_[0];
- return 0 unless defined $r;
- return 1 unless ref $r;
- sum values %$r;
-}
-
 sub normalize ($) {
  my $r = $_[0];
  return unless defined $r;