#!/usr/bin/perl

use strict;
use warnings;
use Pod::Coverage::Moose;

my @mods = (
    'Moose',                
    'Pod::Coverage::Moose', 
    'Moose::Test',          
    'MooseX::Types',
    'Moose::Micro',
    'MooseX::Method'
);
foreach my $mod (@mods) {
    my $pcm = Pod::Coverage::Moose->new( package => $mod );
    print 'Coverage: ', $pcm->coverage, "\n";
}