package Syntax::Keyword::Junction::Any;
use strict;
use warnings;
our $VERSION = '0.003008'; # VERSION
use parent 'Syntax::Keyword::Junction::Base';
BEGIN {
if ($] >= 5.010001) {
eval q|
sub match {
no if $] > 5.017010, warnings => 'experimental::smartmatch';
my ( $self, $other, $is_rhs ) = @_;
if ($is_rhs) {
for (@$self) {
return 1 if $other ~~ $_;
}
return;
}
for (@$self) {
return 1 if $_ ~~ $other;
}
return;
}
|
}
}
sub num_eq {
return regex_eq(@_) if ref( $_[1] ) eq 'Regexp';
my ( $self, $test ) = @_;
for (@$self) {
return 1 if $_ == $test;
}
return;
}
sub num_ne {
return regex_ne(@_) if ref( $_[1] ) eq 'Regexp';
my ( $self, $test ) = @_;
for (@$self) {
return 1 if $_ != $test;
}
return;
}
sub num_ge {
my ( $self, $test, $switch ) = @_;
return num_le( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ >= $test;
}
return;
}
sub num_gt {
my ( $self, $test, $switch ) = @_;
return num_lt( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ > $test;
}
return;
}
sub num_le {
my ( $self, $test, $switch ) = @_;
return num_ge( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ <= $test;
}
return;
}
sub num_lt {
my ( $self, $test, $switch ) = @_;
return num_gt( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ < $test;
}
return;
}
sub str_eq {
my ( $self, $test ) = @_;
for (@$self) {
return 1 if $_ eq $test;
}
return;
}
sub str_ne {
my ( $self, $test ) = @_;
for (@$self) {
return 1 if $_ ne $test;
}
return;
}
sub str_ge {
my ( $self, $test, $switch ) = @_;
return str_le( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ ge $test;
}
return;
}
sub str_gt {
my ( $self, $test, $switch ) = @_;
return str_lt( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ gt $test;
}
return;
}
sub str_le {
my ( $self, $test, $switch ) = @_;
return str_ge( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ le $test;
}
return;
}
sub str_lt {
my ( $self, $test, $switch ) = @_;
return str_gt( $self, $test ) if $switch;
for (@$self) {
return 1 if $_ lt $test;
}
return;
}
sub regex_eq {
my ( $self, $test, $switch ) = @_;
for (@$self) {
return 1 if $_ =~ $test;
}
return;
}
sub regex_ne {
my ( $self, $test, $switch ) = @_;
for (@$self) {
return 1 if $_ !~ $test;
}
return;
}
sub bool {
my ($self) = @_;
for (@$self) {
return 1 if $_;
}
return;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Syntax::Keyword::Junction::Any
=head1 VERSION
version 0.003008
=head1 AUTHORS
=over 4
=item *
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
=item *
Carl Franks
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut