view release on metacpan or  search on metacpan

example/monitor.pl  view on Meta::CPAN

            author_color($author, $item->grade) . $author . "\e[0m"
        }ex;

    my $perl = sprintf "%s%-20s\e[0m",
      perl_version_color( $item->perl_version ), $item->perl_version;

    printf "%s: %s ( %s on \e[35m%-40s\e[0m => \e[34m%s\e[0m )\n",
      $grade, $filename, $perl, $item->platform, $item->uuid;
}

sub update {
    my $did_match = 0;
    my $new_items = 0;
    my $iter      = $fetcher->get_iter;
    my $first_uuid;
    while ( my $item = $iter->() ) {

        # stop iterating on re-match
        last if defined $last_uuid and $last_uuid eq $item->uuid;

        if ( not defined $first_uuid ) {