pgbooln

Return an undefined (Perl undef) value if the body text is undefined. Return "f" (false) if the input is either blank, "0", "f" or "false", otherwise return "t" (true).

The match is not case sensitive.

The "pgbool" filter is the same as this one, except that it treats an undefined body text value as false.

Availability

This filter was introduced in version 5.4.0, and is therefore not available for use with any earlier Interchange version.

Example

[filter pgbooln]False[/filter]
[filter pgbooln]f[/filter]
[filter pgbooln][/filter]
[filter pgbooln]true[/filter]
[filter pgbooln]Kevin Walsh[/filter]

Results in:

Source code

sub {
my $val = shift;
return 'f' if ! defined($val);
$val =~ s/\s+//g;
return 'f' if $val =~ /^(?:0|f(?:alse)?)?$/i;
return 't';
}