Truth Checks

A truth check verifies that a value is usable in a condition.

truth_checks.pl

use strict;
use warnings;

sub check_truthy {
    my ($value) = @_;
    return $value ? "pass" : "fail";
}

my $token = ;
my $status = check_truthy($token);
my $length = length $token;

print "token=$token\n";
print "length=$length\n";
print "status=$status\n";

use strict;
use warnings;

sub check_truthy {
    my ($value) = @_;
    return $value ? "pass" : "fail";
}

my $token = ;
my $status = check_truthy($token);
my $length = length $token;

print "token=$token\n";
print "length=$length\n";
print "status=$status\n";

use strict;
use warnings;

sub check_truthy {
    my ($value) = @_;
    return $value ? "pass" : "fail";
}

my $token = ;
my $status = check_truthy($token);
my $length = length $token;

print "token=$token\n";
print "length=$length\n";
print "status=$status\n";

truthy A truthy value behaves as true in an `if` condition.