expanded tips trigger

master
Dylan Lloyd 2012-09-29 19:15:47 -04:00
parent fcf20d85be
commit 61f2c5103f
1 changed files with 1 additions and 1 deletions

View File

@ -1,7 +1,7 @@
package DDG::Goodie::Tips;
use DDG::Goodie;
triggers query_lc => qr/^(\d{1,3})(?: ?%| percent) (?:(tip (?:on|for))|of) ([\$\-]?)(\d+(\.?)(?(5)\d+))$/i;
triggers query_lc => qr/^(\d{1,3})(?: ?%| percent) (?:(tip (?:on|for))|of)(?: an?)? ([\$\-]?)(\d+(\.?)(?(5)\d+))(?: bill)?$/i;
handle matches => sub {
my ($p, $is_tip, $sign,$num) = @_;