Why not adopt me?
NAME
POE::Component::WWW::CPAN - non-blocking wrapper around WWW::CPAN
SYNOPSIS
use strict;
use warnings;
use POE qw/Component::WWW::CPAN/;
my $poco = POE::Component::WWW::CPAN->spawn;
POE::Session->create(
package_states => [
main => [ qw/_start results/ ],
],
);
$poe_kernel->run;
sub _start {
$poco->search({
event => 'results',
query => 'App::ZofCMS::Plugin',
n => 100
}
);
}
sub results {
use Data::Dumper;
print Dumper $_[ARG0]->{result};
$poco->shutdown;
}
Using event based interface is also possible of course.
DESCRIPTION
The module is a non-blocking wrapper around WWW::CPAN which provides interface to http://search.cpan.org/ searching capabilities.
CONSTRUCTOR
spawn
my $poco = POE::Component::WWW::CPAN->spawn;
POE::Component::WWW::CPAN->spawn(
alias => 'cpan',
options => {
debug => 1,
trace => 1,
# POE::Session arguments for the component
},
debug => 1, # output some debug info
);
The spawn
method returns a POE::Component::WWW::CPAN object. It takes a few arguments, all of which are optional. The possible arguments are as follows:
alias
->spawn( alias => 'cpan' );
Optional. Specifies a POE Kernel alias for the component.
options
->spawn(
options => {
trace => 1,
default => 1,
},
);
Optional. A hashref of POE Session options to pass to the component's session.
debug
->spawn(
debug => 1
);
When set to a true value turns on output of debug messages. Defaults to: 0
.
METHODS
search
$poco->search( {
event => 'event_for_output',
query => 'WWW::CPAN',
_blah => 'pooh!',
session => 'other',
}
);
Takes a hashref as an argument, does not return a sensible return value. See search
event's description for more information.
session_id
my $poco_id = $poco->session_id;
Takes no arguments. Returns component's session ID.
shutdown
$poco->shutdown;
Takes no arguments. Shuts down the component.
ACCEPTED EVENTS
search
$poe_kernel->post( cpan => search => {
event => 'event_for_output',
query => 'WWW::CPAN',
_blah => 'pooh!',
session => 'other',
}
);
Instructs the component to make a search on Lhttp://search.cpan.org/>. Takes a hashref as an argument, the possible keys/value of that hashref are as follows:
event
{ event => 'results_event', }
Mandatory. Specifies the name of the event to emit when results are ready. See OUTPUT section for more information.
method
{ method => 'fetch_distmeta' }
{ method => 'search' }
Optional. Specifies which method to call on WWW::CPAN object. Possible values are fetch_distmeta
, search
and query
where query
is just an alias to search
. Defaults to: search
.
query
{ query => 'WWW::CPAN' }
Mandatory unless method
argument (see above) is set to fetch_distmeta
in which case argument query
is not used. Specifies the term for which you are searching.
mode
{ query => 'WWW::CPAN', mode => 'all' }
{ query => 'WWW::CPAN', mode => 'module' }
{ query => 'WWW::CPAN', mode => 'dist' }
{ query => 'WWW::CPAN', mode => 'author' }
Optional. Valid when method
argument it set to either query
or search
(the default). Takes a scalar as an argument which can be either one of all
, dist
, module
or author
. Specifies what should your query search - same as on http://search.cpan.org/. Defaults to: all
n
{ query => 'WWW::CPAN', n => 50 }
Optional. Takes an integer between 1
and 100
. Specifies how many results you wish to have per "page" (see s
option below). Values larger than 100 will get reset to 100. Defaults to: 10
s
{ query => 'WWW::CPAN', s => 10 }
Optional. Takes a positive integer as a value. Specifies the page number you wish to access - same as on http://search.cpan.org. In other words, if your n
(see above) is set to 10
, and your s
argument is set to 2, you will get results 10 to 20. Defaults to: 1
session
{ session => 'other' }
{ session => $other_session_reference }
{ session => $other_session_ID }
Optional. Takes either an alias, reference or an ID of an alternative session to send output to.
user defined
{
_user => 'random',
_another => 'more',
}
Optional. Any keys starting with _
(underscore) will not affect the component and will be passed back in the result intact.
shutdown
$poe_kernel->post( cpan => 'shutdown' );
Takes no arguments. Tells the component to shut itself down.
OUTPUT
$VAR1 = {
'result' => {
'matches' => '12',
'start' => '1',
'module' => [
{
'link' => 'http://search.cpan.org/author/ZOFFIX/App-ZofCMS-0.0103/lib/App/ZofCMS.pm',
'version' => '0.0103',
'name' => 'App::ZofCMS',
'released' => '27th July 2008',
'author' => {
'link' => 'http://search.cpan.org/~zoffix/'
},
'description' => 'web framework and templating system for small-medium sites. '
},
{
'link' => 'http://search.cpan.org/author/ZOFFIX/App-ZofCMS-Plugin-Tagged-0.0201/lib/App/ZofCMS/Plugin/Tagged.pm',
'name' => 'App::ZofCMS::Plugin::Tagged',
'released' => '28th July 2008',
'author' => {
'link' => 'http://search.cpan.org/~zoffix/'
},
'description' => 'ZofCMS plugin to fill templates with data from query, template variables and configuration using <TAGS> '
}
]
},
'_blah' => 'foo',
};
The event handler set up to handle the event which you've specified in the event
argument to search()
method/event will recieve input in the $_[ARG0]
in a form of a hashref. The possible keys/value of that hashref are as follows:
user defined
{ '_blah' => 'foos' }
Any arguments beginning with _
(underscore) passed into the search()
event/method will be present intact in the result.
SEE ALSO
AUTHOR
Zoffix Znet, <zoffix at cpan.org>
(http://zoffix.com, http://haslayout.net)
BUGS
Please report any bugs or feature requests to bug-poe-component-www-cpan at rt.cpan.org
, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=POE-Component-WWW-CPAN. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc POE::Component::WWW::CPAN
You can also look for information at:
RT: CPAN's request tracker
http://rt.cpan.org/NoAuth/Bugs.html?Dist=POE-Component-WWW-CPAN
AnnoCPAN: Annotated CPAN documentation
CPAN Ratings
Search CPAN
COPYRIGHT & LICENSE
Copyright 2008 Zoffix Znet, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.