GUID: Add additional $allowedTriggers: generate

lib/DDG/Goodie/GUID.pm

@@ -12,6 +12,9 @@ my %guid = (
     'rfc 4122'                      => 0,
 );
 
+# additional allowed triggers
+my $allowedTriggers = qr/new|random|generate/i;
+
 triggers any => keys %guid;
 
 zci answer_type => "guid";
@@ -32,14 +35,15 @@ attribution twitter => 'crazedpsyc',
 
 handle remainder => sub {
 
-    s/^\s+|\s+$//g; #trim
-    s/new|random//g; #allow random or new in query
+    s///g; # allow random or new in query
+    s/$allowedTriggers//g; # strip allowed triggers
+    s/^\s+|\s+$//g; # trim
 
-    return if $_; #return if other words remaining
+    return if $_; # return if other words remaining
 
-    my $guid = Data::GUID->new;
+    my $guid = Data::GUID->new; # generate new GUID
 
-    return unless $guid;
+    return unless $guid; # return if GUID exists
 
     return $guid->as_string,
       structured_answer => {

t/GUID.t

@@ -19,6 +19,8 @@ ddg_goodie_test([qw( DDG::Goodie::GUID ) ],
     'rfc 4122'                   => test_zci(@answer),
     'new guid'                   => test_zci(@answer),
     'random uuid'                => test_zci(@answer),
+    'generate new uuid'          => test_zci(@answer),
+    'generate random uuid'       => test_zci(@answer),
     'uuid in ansi C'             => undef,
     'what is a guid'             => undef,
 );