SZ
Size: a a a
SZ
AK
VG
IB
use Data::Dumper;
use Scalar::Util qw(dualvar looks_like_number);
my $var = dualvar 10, "Hello";
warn $var + 2 . "\n";
warn Dumper looks_like_number($var);
P
use Data::Dumper;
use Scalar::Util qw(dualvar looks_like_number);
my $var = dualvar 10, "Hello";
warn $var + 2 . "\n";
warn Dumper looks_like_number($var);
VG
AK
use Data::Dumper;
use Scalar::Util qw(dualvar looks_like_number);
my $var = dualvar 10, "Hello";
warn $var + 2 . "\n";
warn Dumper looks_like_number($var);
IB
AK
sub __db_val {
my $pv = scalar(@_) == 2 ? \$_[1] : \$_;
defined( ${$pv} )
? (looks_like_number(${$pv}) >> 8)
? $_[0]
: sprintf($_[0], ${$pv})
: 'NULL'
}
AK
AK
(...SQL EXPR...) WHERE col {{=macrov}}
AP
AK
AU
AK
VG
R
AK
VG