| pgbooln | ||
|---|---|---|
 |
 |
|
| pgbooln | ||
|---|---|---|
| |
|
|
pgbooln — return undef (NULL), "f" (false) or "t" (true), depending on input data
The filter returns undefined value (NULL) if the input is
undefined. It returns "f" (false) if the input is
0, f or
false (in a case-insensitive manner).
Otherwise, it returns "t" (true).
For more information on Perl Regular Expressions, pattern matching and character classes, see perlre(1).
Interchange 5.9.0:
Source: code/Filter/pgbooln.filter
Lines: 22
# Copyright 2002-2007 Interchange Development Group and others
# Copyright 1996-2002 Red Hat, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
#
# $Id: pgbooln.filter,v 1.6 2007-03-30 23:40:45 pajamian Exp $
CodeDef pgbooln Filter
CodeDef pgbooln Description PostgreSQL Boolean (undef as NULL)
CodeDef pgbooln Visibility private
CodeDef pgbooln Routine <<EOR
sub {
my $val = shift;
return if ! defined($val);
$val =~ s/\s+//g;
return 'f' if $val =~ /^(?:0|f(?:alse)?)?$/i;
return 't';
}
EOR
| |
|
|
| pgbool |
|
pre |