<%args>
$num
$denom
$decimals => 1
</%args>

<%init>
# Format a numerator and denominator into a percentage.  Do something
# sensible if the denominator is zero.
my $out_str;
if ($num != 0) {
    if ($denom) {
    	# Both num and denom nonzero, so compute pct.
    	$out_str = sprintf "%.${decimals}f", (100 * $num / $denom);
    }
    else {
    	# Num nonzero but denom zero, so display 'N/A'.
#    	$out_str = sprintf "%.${decimals}f", 0;
    	$out_str = 'N/A';
    }
}
else {
    # Num is zero, so display zero regardless of denom.
    $out_str = sprintf "%.${decimals}f", 0;
}

$m->print($out_str);
</%init>
