Acme::BeCool - Make your modules use the modules that get you some.

Acme-BeCool documentation Contained in the Acme-BeCool distribution.

Index

Code Index:

NAME

Top

Acme::BeCool -- Make your modules use the modules that get you some.

SYNOPSIS

Top

    use Acme::BeCool; # Wakka-chikka, wakka-chikka...

    # Whatever you write here will get play.

or

    use Acme::BeCool qw(This That And The::Other); # I *define* cool.
    # really?

DESCRIPTION

Top

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 trend-setter yourself! Note that it doesn't try to install anything you don't already have, because if you're cool, you already have it.

AUTHOR

Top

Sean O'Rourke, <seano@cpan.org>

Bug reports welcome, patches even more welcome.

COPYRIGHT

Top

Copyright (C) 2009 Sean O'Rourke. All rights reserved, some wrongs reversed. This module is distributed under the same terms as Perl itself.

LICENSE

Top

This module is distributed under the same terms as Perl itself.

Acme-BeCool documentation Contained in the Acme-BeCool distribution. 
package Acme::BeCool;


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

1;
__END__