--- /dev/null
+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;
+