view release on metacpan or  search on metacpan

BeCool.pm  view on Meta::CPAN

# This improves my Kwalitee?
q#
use strict;
use warnings;
#;

$VERSION = '0.02';

use LWP::Simple;

sub import
{
    shift;
    if (!@_) {
        my $page = get 'http://search.cpan.org/search?query=cool&mode=all';
        push @_, $1 while $page =~ m!<h2.*?<b>(.*?)</b></a></h2>!g;
    }
    @_ = grep !/\//, @_;
    my $caller = shift;
    my $cool = 0;
    for (@_) {