X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FGitalist.git;a=blobdiff_plain;f=local-lib5%2Flib%2Fperl5%2FPerl6%2FJunction%2FNone.pm;fp=local-lib5%2Flib%2Fperl5%2FPerl6%2FJunction%2FNone.pm;h=526dd9bf50ca522044715c56ca2902349cef9c2e;hp=0000000000000000000000000000000000000000;hb=3fea05b9fbf95091f4522528b9980a33e0235603;hpb=af746827daa7a8feccee889e1d12ebc74cc9201e

diff --git a/local-lib5/lib/perl5/Perl6/Junction/None.pm b/local-lib5/lib/perl5/Perl6/Junction/None.pm
new file mode 100644
index 0000000..526dd9b
--- /dev/null
+++ b/local-lib5/lib/perl5/Perl6/Junction/None.pm
@@ -0,0 +1,178 @@
+package Perl6::Junction::None;
+use strict;
+our $VERSION = '1.40000';
+
+use base 'Perl6::Junction::Base';
+
+sub num_eq {
+    return regex_eq(@_) if ref( $_[1] ) eq 'Regexp';
+
+    my ( $self, $test ) = @_;
+
+    for (@$self) {
+        return if $_ == $test;
+    }
+
+    return 1;
+}
+
+sub num_ne {
+    return regex_ne(@_) if ref( $_[1] ) eq 'Regexp';
+
+    my ( $self, $test ) = @_;
+
+    for (@$self) {
+        return if $_ != $test;
+    }
+
+    return 1;
+}
+
+sub num_ge {
+    my ( $self, $test, $switch ) = @_;
+
+    return num_le( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ >= $test;
+    }
+
+    return 1;
+}
+
+sub num_gt {
+    my ( $self, $test, $switch ) = @_;
+
+    return num_lt( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ > $test;
+    }
+
+    return 1;
+}
+
+sub num_le {
+    my ( $self, $test, $switch ) = @_;
+
+    return num_ge( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ <= $test;
+    }
+
+    return 1;
+}
+
+sub num_lt {
+    my ( $self, $test, $switch ) = @_;
+
+    return num_gt( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ < $test;
+    }
+
+    return 1;
+}
+
+sub str_eq {
+    my ( $self, $test ) = @_;
+
+    for (@$self) {
+        return if $_ eq $test;
+    }
+
+    return 1;
+}
+
+sub str_ne {
+    my ( $self, $test ) = @_;
+
+    for (@$self) {
+        return if $_ ne $test;
+    }
+
+    return 1;
+}
+
+sub str_ge {
+    my ( $self, $test, $switch ) = @_;
+
+    return str_le( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ ge $test;
+    }
+
+    return 1;
+}
+
+sub str_gt {
+    my ( $self, $test, $switch ) = @_;
+
+    return str_lt( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ gt $test;
+    }
+
+    return 1;
+}
+
+sub str_le {
+    my ( $self, $test, $switch ) = @_;
+
+    return str_ge( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ le $test;
+    }
+
+    return 1;
+}
+
+sub str_lt {
+    my ( $self, $test, $switch ) = @_;
+
+    return str_gt( $self, $test ) if $switch;
+
+    for (@$self) {
+        return if $_ lt $test;
+    }
+
+    return 1;
+}
+
+sub regex_eq {
+    my ( $self, $test, $switch ) = @_;
+
+    for (@$self) {
+        return if $_ =~ $test;
+    }
+
+    return 1;
+}
+
+sub regex_ne {
+    my ( $self, $test, $switch ) = @_;
+
+    for (@$self) {
+        return if $_ !~ $test;
+    }
+
+    return 1;
+}
+
+sub bool {
+    my ($self) = @_;
+
+    for (@$self) {
+        return if $_;
+    }
+
+    return 1;
+}
+
+1;
+