view release on metacpan or  search on metacpan

BeCool.pm  view on Meta::CPAN

        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

This module automatically uses the top ten things returned by a CPAN
search for "cool," or uses what you tell it.  Use it to keep up with
the latest fads in Perl development, or to try to become a Perl