view release on metacpan or  search on metacpan

lib/App/Critique/Command/status.pm  view on Meta::CPAN

        
        info(HR_DARK);
        info('FILE CRITERIA:');
        info(HR_LIGHT);
        info('  filter       = %s', $session->file_criteria->{'filter'}       // '[...]');
        info('  match        = %s', $session->file_criteria->{'match'}        // '[...]');
        info('  no-violation = %s', $session->file_criteria->{'no_violation'} // '[...]');
    }

    info(HR_DARK);
    info('FILES: <legend: [v|r|e|c]:(idx) path>');
    if ( $opt->verbose ) {
        info(HR_LIGHT);
        info('CURRENT FILE INDEX: (%d)', $curr_file_idx);
    }
    info(HR_LIGHT);
    if ( $num_files ) {
        foreach my $i ( 0 .. $#tracked_files ) {
            my $file = $tracked_files[$i];
            info('%s [%s|%s|%s|%s]:(%d) %s',
                ($i == $curr_file_idx ? '>' : ' '),