1package Perl6::Junction::Any; 2use strict; 3our $VERSION = '1.60000'; 4 5use base 'Perl6::Junction::Base'; 6 7sub num_eq { 8 return regex_eq(@_) if ref( $_[1] ) eq 'Regexp'; 9 10 my ( $self, $test ) = @_; 11 12 for (@$self) { 13 return 1 if $_ == $test; 14 } 15 16 return; 17} 18 19sub num_ne { 20 return regex_ne(@_) if ref( $_[1] ) eq 'Regexp'; 21 22 my ( $self, $test ) = @_; 23 24 for (@$self) { 25 return 1 if $_ != $test; 26 } 27 28 return; 29} 30 31sub num_ge { 32 my ( $self, $test, $switch ) = @_; 33 34 return num_le( $self, $test ) if $switch; 35 36 for (@$self) { 37 return 1 if $_ >= $test; 38 } 39 40 return; 41} 42 43sub num_gt { 44 my ( $self, $test, $switch ) = @_; 45 46 return num_lt( $self, $test ) if $switch; 47 48 for (@$self) { 49 return 1 if $_ > $test; 50 } 51 52 return; 53} 54 55sub num_le { 56 my ( $self, $test, $switch ) = @_; 57 58 return num_ge( $self, $test ) if $switch; 59 60 for (@$self) { 61 return 1 if $_ <= $test; 62 } 63 64 return; 65} 66 67sub num_lt { 68 my ( $self, $test, $switch ) = @_; 69 70 return num_gt( $self, $test ) if $switch; 71 72 for (@$self) { 73 return 1 if $_ < $test; 74 } 75 76 return; 77} 78 79sub str_eq { 80 my ( $self, $test ) = @_; 81 82 for (@$self) { 83 return 1 if $_ eq $test; 84 } 85 86 return; 87} 88 89sub str_ne { 90 my ( $self, $test ) = @_; 91 92 for (@$self) { 93 return 1 if $_ ne $test; 94 } 95 96 return; 97} 98 99sub str_ge { 100 my ( $self, $test, $switch ) = @_; 101 102 return str_le( $self, $test ) if $switch; 103 104 for (@$self) { 105 return 1 if $_ ge $test; 106 } 107 108 return; 109} 110 111sub str_gt { 112 my ( $self, $test, $switch ) = @_; 113 114 return str_lt( $self, $test ) if $switch; 115 116 for (@$self) { 117 return 1 if $_ gt $test; 118 } 119 120 return; 121} 122 123sub str_le { 124 my ( $self, $test, $switch ) = @_; 125 126 return str_ge( $self, $test ) if $switch; 127 128 for (@$self) { 129 return 1 if $_ le $test; 130 } 131 132 return; 133} 134 135sub str_lt { 136 my ( $self, $test, $switch ) = @_; 137 138 return str_gt( $self, $test ) if $switch; 139 140 for (@$self) { 141 return 1 if $_ lt $test; 142 } 143 144 return; 145} 146 147sub regex_eq { 148 my ( $self, $test, $switch ) = @_; 149 150 for (@$self) { 151 return 1 if $_ =~ $test; 152 } 153 154 return; 155} 156 157sub regex_ne { 158 my ( $self, $test, $switch ) = @_; 159 160 for (@$self) { 161 return 1 if $_ !~ $test; 162 } 163 164 return; 165} 166 167sub bool { 168 my ($self) = @_; 169 170 for (@$self) { 171 return 1 if $_; 172 } 173 174 return; 175} 176 1771; 178 179