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/;
$n eq 'null' ? substr(ppname($_[0]->targ), 3) : $n
}
-sub zero ($) {
- my $r = $_[0];
- return 1 unless defined $r;
- return $r eq '0' unless ref $r;
- return $r->{0} and 1 == scalar keys %$r;
-}
-
-sub list ($) {
- my $r = $_[0];
- return 0 unless defined $r;
- return $r eq 'list' unless ref $r;
- 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;