NAME
Tie::DuckDuckGo - Access DuckDuckGo search results via variables
SYNOPSIS
use
Tie::DuckDuckGo;
# tie a scalar
my
$search
;
tie
$search
=>
'Tie::DuckDuckGo'
=>
'perl'
;
say
$search
->{url};
say
$search
->{title};
say
$search
->{snippet};
# tie an array
my
@results
;
tie
@results
=>
'Tie::DuckDuckGo'
=>
'perl'
;
for
(
@results
) {
say
$_
->{url};
say
$_
->{title};
say
$_
->{snippet};
}
# tie a hash
my
%results
;
tie
%results
=>
'Tie::DuckDuckGo'
;
my
$result
=
$results
{reddit};
say
$_
->{url}
for
@$result
;
DESCRIPTION
I came across Darren Chamberlain's neat implementation of Tie::Google and though it would be fun to write a version for DuckDuckGo.
I haven't implemented all of the require methods for tie(). I plan to add those in a future release.
AUTHOR
Curtis Brandt <curtis@cpan.org>
COPYRIGHT
Copyright 2014- Curtis Brandt
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.