Initial commit

lib/DDG/Goodie/CountryCodes.pm

@@ -0,0 +1,62 @@
+package DDG::Goodie::CountryCodes;
+# ABSTRACT: Matches country names to international calling codes
+
+use DDG::Goodie;
+use Locale::Country qw/country2code code2country/;
+use Data::Dumper;
+
+use constant WPHREF => "https://en.wikipedia.org/wiki/ISO_3166-1";
+    
+zci answer_type => "country_codes";
+zci is_cached   => 1;
+
+name        "CountryCodes";
+description "Matches country names to ISO 3166 codes";
+source       WPHREF;
+code_url    "https://github.com/duckduckgo/zeroclickinfo-spice/blob/master/lib/DDG/Goodie/CountryCodes.pm";
+category    "geography";
+topics      "travel", "geography";
+
+primary_example_queries   "country code Japan", "iso code for Spain";
+secondary_example_queries "numeric country code for Russia", "3 letter country code of China";
+
+attribution github  => ["killerfish", "Usman Raza"],
+            twitter     => ["f1shie", "Usman Raza"];
+
+triggers any => 'country code','iso code','iso 3166';
+
+handle remainder => sub {
+    return unless /^([a-zA-Z]+)*\s*(?:(2|3|two|three)\sletter)?$|^(?:(2|3|two|three)\sletter)?\s*(?:of|for)?\s*([a-zA-Z]+)*$/;
+    
+    my (@answer, $expr);
+    my $query = $4;
+    
+    $expr = '2' unless $expr = ($2 || $3);
+    $query = $1 if $1;
+
+    if($expr && ($expr eq '2' || $expr eq 'two' )) {
+        @answer = result($query, "alpha-2");
+    }
+ 
+    if($expr && ($expr eq '3' || $expr eq 'three' )) {
+        @answer = result($query, "alpha-3");
+    }
+    
+    return if @answer < 2;
+    ($query, $answer[0]) = ($answer[0], $query) if $answer[1] == 1;
+    
+    
+    print Dumper \@answer;
+    my $text = sprintf qq(ISO 3166: %s - %s), ucfirst $query, $answer[0],
+    my $html = sprintf qq(<a href="%s">ISO 3166</a>: %s - %s), WPHREF, ucfirst $query, $answer[0];
+    return $text, html => $html;
+ 
+};
+
+sub result {
+    my ($query, $sw) = @_;
+    my $result;
+    ($result = country2code($query, $sw)) ? return ($result, 0) : ($result = code2country($query, $sw)) ? return ($result, 1) : return -1;
+}
+
+1;