view release on metacpan or  search on metacpan

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

49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
      
    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 ? '>' : ' '),