Since I am barely a Perl::Critic novice, I am not sure what you are asking. I recently decided I wanted to sort all violations by severity, and I created this little script to run perlcritic. It does not depend on a user-defined .perlcriticrc file, and it works OK for a 1-year-old version of Perl::Critic (1.092). There is undoubtedly a better way to do it, but it's a start. The POD is self-explanatory.

#!/usr/bin/env perl

=head1 Name

B<pcsort> - Sort perlcritic 'brutal' output by severity

=head1 Description

Input is a Perl script or module.
Prints to STDOUT.

Example: pcsort foo.pl

=cut

use warnings FATAL => 'all';
use strict;
use Data::Dumper;

my $file = shift;
my @aoa;
my @lines = `perlcritic -1 $file`;
chomp @lines;
for (@lines) {
    if (/ Severity : \s+ (\d) /x) {
        my $sev = $1;
        push @{ $aoa[$sev] }, $_;
    }
}
print Dumper(\@aoa);
[download]