view release on metacpan or  search on metacpan

lib/App/I18N/Command/Status.pm  view on Meta::CPAN

        } else {
            ($lang) = ($pofile =~ m{(\w+)\.po$} );   # get en_US or zh_TW ... etc
        }

        $extract->read_po($pofile);

        my $lexicon = $extract->lexicon;

        my $total = scalar keys %$lexicon;
        my $empty = scalar grep { $_ } values %$lexicon;
        my $percent = $empty / $total * 100;

        printf "%10s: ", $lang;
        $self->print_bar( $percent );
        printf " %2d%% (%d/%d) ", $percent, $empty, $total;
        print "\n";
    }
}



1;
__END__
=head1 NAME