File Coverage

blib/lib/Acme/BeCool.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	4	50.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	18	20	90.0

package Acme::BeCool;

=head1 NAME

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

=head1 SYNOPSIS

    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?

=cut

# 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!(.*?)!g;
    }
    @_ = grep !/\//, @_;
    my $caller = shift;
    my $cool = 0;
    for (@_) {
        eval "require $_";
        $caller->import($_) unless $@;
    }
    print STDERR "You are ", ($cool / @_), "\% cool\n";
}

1;
__END__