File Coverage

blib/lib/Module/Cloud.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	47	47	100.0

use 5.008;
use strict;
use warnings;

package Module::Cloud;
our $VERSION = '1.100861';
# ABSTRACT: Generates a tag cloud for modules used in given code
use HTML::TagCloud;
use File::Find::Rule::MMagic;
use Module::ExtractUse;
use parent 'Class::Accessor::Complex';
__PACKAGE__
    ->mk_new
    ->mk_array_accessors('dir');

sub get_cloud {
    my $self = shift;
    my @text_files;
    for my $dir ($self->dir) {
        push @text_files, grep { !/\/Makefile.PL$/ }
          grep { !/\.t$/ }
          grep { !/\/\.svn\// }
          find(file => magic => [qw(text/* x-system/*)], in => $dir);
    }
    my $extractor = Module::ExtractUse->new;
    my %modules;
    for my $textfile (@text_files) {
        my $used = $extractor->extract_use($textfile);
        $modules{$_}++ for keys %{ $used->{found} };
    }
    my $cloud = HTML::TagCloud->new;
    while (my ($module, $count) = each %modules) {
        $cloud->add($module, "http://search.cpan.org/search?query=$module",
            $count);
    }
    $cloud;
}
1;


__END__