in reply to Re^3: Perl Style: Is initializing variables considered taboo?
in thread Perl Style: Is initializing variables considered taboo?

and please be careful not to return undef to "explicitly" return false.
Many people use return undef to indicate false in the execution of a sub, but it's likely I'm really not getting what you mean by "explicitly": 
perl -e 'foreach (@INC){print "$_\n" unless $_ eq q{.}}' | xargs grep 
+-R "return undef" | wc -l<br>
1752

[download]
Subs return lists, so what you are actually doing is returning a one-element list instead of an empty one. I.e. @array=func(); Using a blank return is the same like return (); and won't byte you in list context but in scalar context the variable will be undef anyway.
I have found it wise to always return an explicit value, to avoid a potential bite or 'feature' of the "last expression", and have till now, used undef to indicate falseness and failure, and a defined value or "1", to indicate trueness/success.

As you point out, it is often overlooked that Perl returns lists and as a result most of the time subs are evaluated in scalar context; in OO code it's customary to return a single ref to an object or undef on failure. So what exactly do you mean by not returning undef to "explicitly" return false.

Replies are listed 'Best First'.
Re^5: Perl Style: Is initializing variables considered taboo?
by chromatic (Archbishop) on Aug 23, 2010 at 00:24 UTC

    In scalar context, return; evaluates to undef. In list context, it evaluates to the empty list. In both contexts, it evaluates to something which evaluates to false in boolean context.

    In list context, return undef; evaluates to a single-element list which evaluates to true in boolean context.

[reply]
[d/l]
[select]
Re^5: Perl Style: ... (TRUE, FALSE and FAILED)
by LanX (Saint) on Aug 23, 2010 at 10:08 UTC
    > So what exactly do you mean by not returning undef to "explicitly" return false.

    maybe a little example will make it clearer

      DB<1> sub tst  {return undef}
  
  DB<2> if ($a=tst()) {print "TRUE"} else {print "FALSE" }
FALSE
  DB<3> if (@a=tst()) {print "TRUE"} else {print "FALSE" }
TRUE
  DB<4> sub tst  { return (); }
  
  DB<5> if ($a=tst()) {print "TRUE"} else {print "FALSE" }
FALSE
  DB<6> if (@a=tst()) {print "TRUE"} else {print "FALSE" }
FALSE

    [download]

    line 4 is of course redundant, return; and  return (); do exactly the same thing.

    > I have found it wise to always return an explicit value,

    OK, if you wanna code more "explicitly", you should better define constants for TRUE, FALSE and FAILED.

      DB<9> use constant FAILED => ();
 
  DB<10> use constant FALSE => !1;
 
  DB<11> use constant TRUE => 1;
 
  DB<12> sub t_FALSE  { return FALSE; }
 
  DB<13> sub t_TRUE  { return TRUE; }
 
  DB<14> sub t_FAILED  { return FAILED; }
 
  DB<15> if (@a=t_FAILED) {print "TRUE"} else {print "FALSE" }
FALSE
  DB<16> if (@a=t_FALSE) {print "TRUE"} else {print "FALSE" }
TRUE
  DB<17> if ($a=t_FALSE) {print "TRUE"} else {print "FALSE" }
FALSE
  DB<18> if ($a=t_FAILED) {print "TRUE"} else {print "FALSE" }
FALSE

    [download]

    If you wonder about my definition of FALSE, see Truth and Falsehood in perlsyn: 

           Negation of a true value by "!" or "not" returns a special fals
+e value.
       When evaluated as a string it is treated as '', but as a number
+, it is
       treated as 0.

    [download]

    UPDATE:

    please note: FALSE is defined!

      DB<27> p !defined (FAILED)
1
  DB<28> p defined (FALSE)
1

    [download]

    i.e. FALSE acts like a defined value like in most other languages.

    UPDATE:

    On second thought FAILED should better be named EMPTY or NOTHING. Failure is just an interpretation of returning nothing.

    Cheers Rolf

[reply]
[d/l]
[select]
      If you wonder about my definition of FALSE, see Truth and Falsehood in perlsyn:

      From the pod you are reffering to:

      The number 0, the strings '0' and '' , the empty list () , and undef are all false in a boolean context. All other values are true. Negation of a true value by ! or not returns a special false value. When evaluated as a string it is treated as '' , but as a number, it is treated as 0.

      I still believe it's more customary to use undef as the ultimate null and false value in Perl. For example in DBI, DBIx::Class and alike, if you set a field to undef it will store in the database as an actual NULL whereas if you use '' (the empty string) you will get a blank string in the database, probably not what you'd want. I have a feeling that the explicit returning of undef is a quite popular convention :)

      This "ultimate null/false discussion" is probably steering OT and should move to a new thread IMO, though I would suspect that it has been discussed ad nauseam here in PM.

[reply]

In Section Seekers of Perl Wisdom