view release on metacpan or  search on metacpan

bin/cloc  view on Meta::CPAN

sub count_files {                            # {{{1
    my ($filelist,$counter_type,$language_hash) = @_;
    my @p_errors = ();
    my %p_ignored = ();
    my %p_rbl = ();
    my %p_rbf = ();
    my %Language = %$language_hash;

    foreach my $file (@$filelist) {
        if ( ! $counter_type ) {
            # Multithreading disabled
            $nCounted++;

            printf "Counting:  %d\r", $nCounted
                 unless (!$opt_progress_rate or ($nCounted % $opt_progress_rate));
        }

        next if $Ignored{$file};
        if ($opt_include_lang and not $Include_Language{$Language{$file}}) {
            $p_ignored{$file} = "--include-lang=$Language{$file}";
            next;