/lib/DDG/Spice/CodeSearch.pm
http://github.com/duckduckgo/zeroclickinfo-spice · Perl · 27 lines · 16 code · 10 blank · 1 comment · 1 complexity · cd5d6eb99efe8e04d151843839cf2d07 MD5 · raw file
- package DDG::Spice::CodeSearch;
- # ABSTRACT: Code search
- use strict;
- use DDG::Spice;
- triggers startend => "code", "example";
- spice to => 'https://searchcode.com/api/jsonp_codesearch_I/?q=$1&callback={{callback}}';
- my $languages = join "|", share('languages.txt')->slurp;
- handle remainder => sub {
- if ($_ =~ m/\b($languages)\b/x) {
- my $match = $1;
- $match =~ s/\+/\\+/g;
- s/\s*$match\s*//i;
- return "lang:".$match." ".$_;
- }
- return;
- };
- 1;