| line |
l |
!l |
condition |
|
687
|
338 |
20 |
/^upper/i and return uc($value || '') |
|
|
298 |
40 |
/^lower/i and return lc($value || '') |
|
|
272 |
26 |
/^proper/i and return propnoun($value || '') |
|
|
272 |
0 |
/^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) |
|
|
266 |
6 |
/^words(\d+)/ and return frstword($value || '', $1) |
|
|
242 |
24 |
/^para(?:graph)?(\d+)/ and return paratext($value || '', $1) |
|
|
218 |
24 |
/^indent(\d+)/ and return indtext($value || '', $1) |
|
|
190 |
28 |
/^int/i and return defined $value ? int $value : 0 |
|
|
190 |
0 |
/^float/i and return defined $value && sprintf('%f', $value || 0) || '' |
|
|
188 |
2 |
/^string/i and return $value |
|
|
186 |
2 |
/^detab/i and return de_tab($value) |
|
|
186 |
0 |
/^html/i and return htmlconv($value) |
|
|
172 |
14 |
/^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' |
|
|
144 |
28 |
/^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) |
|
|
132 |
12 |
/^abbr/i and return abbrdate($value) |
|
|
120 |
12 |
/^short/i and return shrtdate($value) |
|
|
108 |
12 |
/^time/i and return timeoday($value) |
|
|
96 |
12 |
/^24h/i and return time24hr($value) |
|
|
84 |
12 |
/^dateonly/i and return dateonly($value) |
|
|
72 |
12 |
/^date/i and return fulldate($value) |
|
|
60 |
12 |
/^ext/i and return extdate($value) |
|
|
48 |
12 |
/^unix/i and return scalar localtime $value |
|
|
44 |
4 |
/^urlencode/i and return urlenc($value) |
|
|
42 |
2 |
/^urldecode/i and return urldec($value) |
|
|
14 |
28 |
/^escape/i and return brsresc($value) |
|
|
0 |
14 |
/^unescape/i and return brsruesc($value) |
|
|
0 |
0 |
/^list$/ and return ref $value && ' ' . join("\n ", @$value) . "\n" || ' ' . $value . "\n" |
|
875
|
0 |
0 |
$_ == 3 and $suff = 'rd' |
|
|
0 |
0 |
$_ == 1 and $suff = 'st' |
|
|
0 |
0 |
$_ == 2 and $suff = 'nd' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
402
|
0 |
0 |
2 |
not defined $start && defined $end or $start and not $end |
|
|
0 |
0 |
2 |
not defined $start && defined $end or $start and not $end or not $start and $end |
|
407
|
0 |
0 |
2 |
$start =~ /\:/ or $end =~ /\:/ |
|
410
|
0 |
0 |
2 |
$start =~ /^[\{\}]$/ or $end =~ /^[\{\}]$/ |
|
467
|
24 |
90 |
0 |
$$item{'ItemType'} && $item || $$item{'Data'} |
|
486
|
224 |
224 |
234 |
$tag eq 'NEG:' or $tag eq 'IF:' |
|
487
|
458 |
0 |
224 |
$cond || length $cond |
|
515
|
7 |
0 |
10 |
$$data{'Data'} || $$data{'Actions'} |
|
516
|
3 |
0 |
11 |
ref($template) =~ /FileHandle/ and $fh = $template or -f $template and $fh = 'FileHandle'->new('<' . $template) |
|
562
|
47 |
0 |
34 |
$$data{'Data'} || $$data{'Actions'} |
|
563
|
0 |
63 |
18 |
($ref = ref $template) || -f $template |
|
|
0 |
18 |
63 |
$template =~ /(?:(?:\r?\n)|\r)/ or not +($ref = ref $template) || -f $template |
|
|
0 |
0 |
63 |
$ref and $ref =~ /FileHandle/ and $fh = $template or -f $template and $fh = 'FileHandle'->new($template) |
|
638
|
0 |
0 |
0 |
$toheader or $subheader |
|
|
0 |
0 |
0 |
$toheader or $subheader or $typeheader |
|
|
0 |
0 |
0 |
$toheader or $subheader or $typeheader or $ccheader |
|
687
|
0 |
0 |
338 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') |
|
|
0 |
0 |
298 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') |
|
|
0 |
0 |
272 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) |
|
|
0 |
0 |
272 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) |
|
|
0 |
0 |
266 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) |
|
|
0 |
0 |
242 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) |
|
|
0 |
0 |
218 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 |
|
|
0 |
0 |
190 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' |
|
|
0 |
0 |
190 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value |
|
|
0 |
0 |
188 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) |
|
|
0 |
0 |
186 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) |
|
|
0 |
0 |
186 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' |
|
|
0 |
28 |
0 |
$value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) |
|
|
0 |
0 |
172 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) |
|
|
0 |
0 |
144 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) |
|
|
0 |
0 |
132 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) |
|
|
0 |
0 |
120 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) |
|
|
0 |
0 |
108 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) |
|
|
0 |
0 |
96 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) |
|
|
0 |
0 |
84 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) |
|
|
0 |
0 |
72 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) or /^ext/i and return extdate($value) |
|
|
0 |
0 |
60 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) or /^ext/i and return extdate($value) or /^unix/i and return scalar localtime $value |
|
|
0 |
0 |
48 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) or /^ext/i and return extdate($value) or /^unix/i and return scalar localtime $value or /^urlencode/i and return urlenc($value) |
|
|
0 |
0 |
44 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) or /^ext/i and return extdate($value) or /^unix/i and return scalar localtime $value or /^urlencode/i and return urlenc($value) or /^urldecode/i and return urldec($value) |
|
|
0 |
0 |
42 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) or /^ext/i and return extdate($value) or /^unix/i and return scalar localtime $value or /^urlencode/i and return urlenc($value) or /^urldecode/i and return urldec($value) or /^escape/i and return brsresc($value) |
|
|
0 |
0 |
14 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) or /^ext/i and return extdate($value) or /^unix/i and return scalar localtime $value or /^urlencode/i and return urlenc($value) or /^urldecode/i and return urldec($value) or /^escape/i and return brsresc($value) or /^unescape/i and return brsruesc($value) |
|
|
0 |
0 |
0 |
ref $value && ' ' . join("\n ", @$value) . "\n" || ' ' . $value . "\n" |
|
|
0 |
0 |
0 |
/^upper/i and return uc($value || '') or /^lower/i and return lc($value || '') or /^proper/i and return propnoun($value || '') or /^trunc(?:ate)?(\d+)/ and return substr($value || '', 0, $1) or /^words(\d+)/ and return frstword($value || '', $1) or /^para(?:graph)?(\d+)/ and return paratext($value || '', $1) or /^indent(\d+)/ and return indtext($value || '', $1) or /^int/i and return defined $value ? int $value : 0 or /^float/i and return defined $value && sprintf('%f', $value || 0) || '' or /^string/i and return $value or /^detab/i and return de_tab($value) or /^html/i and return htmlconv($value) or /^dollars/i and return defined $value && length $value && sprintf('%.2f', $value || 0) || '' or /^percent/i and return $value < 0.2 && sprintf('%.1f%%', $value * 100) || sprintf('%d%%', int $value * 100) or /^abbr/i and return abbrdate($value) or /^short/i and return shrtdate($value) or /^time/i and return timeoday($value) or /^24h/i and return time24hr($value) or /^dateonly/i and return dateonly($value) or /^date/i and return fulldate($value) or /^ext/i and return extdate($value) or /^unix/i and return scalar localtime $value or /^urlencode/i and return urlenc($value) or /^urldecode/i and return urldec($value) or /^escape/i and return brsresc($value) or /^unescape/i and return brsruesc($value) or /^list$/ and return ref $value && ' ' . join("\n ", @$value) . "\n" || ' ' . $value . "\n" |
|
873
|
0 |
0 |
13 |
$mday < 4 or $mday > 20 |
|
875
|
0 |
0 |
0 |
$_ == 1 and $suff = 'st' or $_ == 2 and $suff = 'nd' |