The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DTL::Fast::Filter::Dictsortreversed;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Filter::Dictsort';

$DTL::Fast::FILTER_HANDLERS{dictsortreversed} = __PACKAGE__;

#@Override
sub sort_function
{
    my $self = shift;
    my $val1 = shift;
    my $val2 = shift;

    return $self->SUPER::sort_function($val2, $val1);
}

1;