#!/usr/bin/env perl
use strict;
use warnings;
use WWW::CPANRatings::RSS;

main();

sub main {
    my $five_star_modules = fetch_five_star_modules();
    report_all_modules($five_star_modules);
}

sub fetch_five_star_modules {
    my $rate = WWW::CPANRatings::RSS->new;
    $rate->fetch or die $rate->error;
    my @five_star_modules = grep { $_->{rating} eq "5" } @{ $rate->ratings };
    \@five_star_modules;
}

sub report_all_modules {
    my $modules = shift;
    foreach my $module ( @{$modules} ) {
        report_module($module);
    }
}

sub report_module {
    my $module = shift;
    printf "%s - %s stars - by %s\n", @$module{qw/dist rating creator/};
}

__END__