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

19 lines
492 B
Perl
Raw Normal View History

package DDG::Goodie::PrivateNetwork;
use DDG::Goodie;
use File::ShareDir::ProjectDistDir;
use IO::All;
triggers query_clean => qr/^private (?:network|ip)s?\s*(?:(?:ips?|addresse?s?))?$/i;
zci is_cached => 1;
zci answer_type => "PrivateNetwork";
2012-03-18 16:09:03 -07:00
handle sub {
scalar io(dist_dir('DDG-GoodieBundle-OpenSourceDuckDuckGo').'/privatenetwork/privatenetwork.txt')->slurp,
html => scalar io(dist_dir('DDG-GoodieBundle-OpenSourceDuckDuckGo').'/privatenetwork/privatenetwork.html')->slurp
2012-03-18 16:09:03 -07:00
};
1;