if (Func->any(1,2,3) == 2) {
print 'There is a 2';
}

{
package Func;use overload ('==',sub{handle('==',@_);},'eq',sub{handle(
+'eq',@_);},'!=',sub{handle('!=',@_);},'ne',sub{handle('ne',@_);},'>',
+sub{handle('>',@_);},'gt',sub{handle('gt',@_);},'<',sub{handle('<',@_
+);},'lt',sub{handle('lt',@_);},'<=',sub{handle('<=',@_);},'le',sub{ha
+ndle('le',@_);},'>=',sub{handle('>=',@_);},'ge',sub{handle('ge',@_);}
+,'bool',sub{handle('!=',$_[0],0,0);});sub any{bless['any',@_[1..$#_]]
+,shift@_;}sub some{bless['some',@_[1..$#_]],shift@_;}sub all{bless['a
+ll',@_[1..$#_]],shift@_;}sub none{bless['none',@_[1..$#_]],shift@_;}s
+ub handle{my($TRUE,$FALSE)=();my($what,$any,$val,$r)=@_;my$b4='';my$d
+o=shift@$any;$do eq 'all' and$b4='not';foreach$_(@$any){my(@lr)=($_,$
+val);$r and@lr=reverse(@lr);$do eq 'any'?do{eval q['].$lr[0].q['].' '
+.$what.' '.q['].$lr[1].q['] and return 1}:($do eq 'some'?do{eval q[']
+.$lr[0].q['].' '.$what.' '.q['].$lr[1].q[']?do{$TRUE=1}:do{$FALSE=1}}
+:do{eval$b4.q[ '].$lr[0].q['].' '.$what.' '.q['].$lr[1].q['] and retu
+rn 0});}$TRUE and$FALSE and return 1;$do =~ m'(all|none)' and return 
+1;return 0;}1;
}

[download]

In reply to package Func; (any,all,some,and none methods) by Gunth

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.