view release on metacpan or  search on metacpan

bin/used  view on Meta::CPAN

            if ( -d $file ) {
                push @files, grep {!/^[.][^.]+/} $file->children;
            }
            elsif ( $file =~ /[.]pm$/ ) {
                my $mod = "$file";
                $mod =~ s{^$lib/}{}xms;
                $mod =~ s{/}{::}gxms;
                $mod =~ s{[.]pm$}{}xms;
                my $value = delete $used{$mod};
                if ( $option{verbose} > 1 ) {
                    $used{$mod} = { count => $value, colour => 'bold' };
                }
            }
        }
    }

    for my $module (keys %used) {
        $used{$module} = { count => $used{$module}, colour => '' } if !ref $used{$module};
    }

    # Check what modules have been already required

bin/used  view on Meta::CPAN

        }

        $used->{$module}{count}  ||= 0;
        $used->{$module}{colour} ||= '';

        printf "%4d %s$star$version\n", $used->{$module}{count}, $used->{$module}{colour} ? colored($module, $used->{$module}{colour} ) : $module
            unless $option{quiet};
        if ( $used->{$module}{colour} && $used->{$module}{colour} ne '' && !$notes{ colored( $used->{$module}{colour}, $used->{$module}{colour} ) } ) {
            $notes{ colored( $used->{$module}{colour}, $used->{$module}{colour} ) }
                = $used->{$module}{colour} eq 'blue' ? "Core module"
                : $used->{$module}{colour} eq 'bold' ? 'Local module'
                :                                      'Update the code for this colour';
        }
    }

    print "\n" unless $option{quiet};
    $max = 1;
    for my $key ( keys %notes ) {
        $max = 4 if length $key > 4;
    }
    for my $note (sort keys %notes) {