zeroclickinfo-goodies/lib/DDG/Goodie/Tips.pm

package DDG::Goodie::Tips;
use DDG::Goodie;

triggers any => 'tip', 'tips', '%';

handle query_lc => sub {
    return unless my ($p, $is_tip, $sign,$num) = $_ =~/^(\d{1,3})(?: ?%| percent) (?:(tip (?:on|for))|of)(?: an?)? ([\$\-]?)(\d+(\.?)(?(5)\d+))(?: bill)?$/;
    $p /= 100;
    my $t = $p*$num;
    my $tot;

    if ($is_tip) {
	$tot = $num + $t;
    }

    $t = sprintf "%.2f", $t;
    $tot = sprintf "%.2f", $tot if $tot;

    if ($tot) {
	zci answer_type => 'tip';
	return "Tip: \$$t; Total: \$$tot";
    }
    $t = $sign . $t;
    $tot = $sign . $tot if $tot;
    zci answer_type => 'percentage';
    return "$t is ".($p*100)." percent of $sign$num";
	
};

1;