view release on metacpan or  search on metacpan

BeCool.pm  view on Meta::CPAN

{
    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 (@_) {
        eval "require $_";
        $caller->import($_) unless $@;
    }
    print STDERR "You are ", ($cool / @_), "\% cool\n";
}

1;
__END__

=head1 DESCRIPTION