Rewrite list in XS

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

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index f538fc7c9eddbe327daa52c6f27630a76285b44d..6dc1820a15ae53e3b170fbbb64ebf2f0d9e1f7f8 100644 (file)
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -178,20 +178,6 @@ sub name ($) {
  $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 normalize ($) {
  my $r = $_[0];
  return unless defined $r;