I don't get it :-( I tried:

  use strict ;
  use warnings ;

  try() ;        #     none: 1
  try(undef) ;   #    undef: 1
  try(-1) ;      #       -1: 0
  try(0) ;       #        0: 0
  try(1) ;       #        1: 1

  sub try {
    my ($s) = @_ ;

    my $r = validate_max_size(@_) ;

    if    (@_ == 0)      { $s = "none" ;  }
    elsif (!defined($s)) { $s = "undef" ; } ;

    printf "%8s: %d\n", $s, $r+0 ;
  } ;

  sub validate_max_size {
    my $val = shift;

    ! defined $val || $val > 0;
  }

[download]
on perl 5.10.0, and got no warnings...

I don't know if there's an ointment for bracket-alergy as extreme as this... I would write:

  !defined($val) || ($val > 0) ;

[download]
'cos I'm comfortable with unaries binding tighter than binaries... but the effect is the same as what you writ.

Wait a tick... this gives the error you mentioned:

  try('undef') ;  # Argument "undef" isn't numeric in numeric gt (>) .
+..

[download]
could it be that somebody, somewhere, is mapping undef to 'undef' ?

In reply to Re^3: Object::InsideOut field type validation by gone2015
in thread Object::InsideOut field type validation by Bloodnok

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.