A scope of `sort` pragma

use-sort.t

use strict;
use warnings;
use Test::More;
use sort '_quicksort';

sub test_sort () {
    my @sorted = sort { $a->[1] <=> $b->[1] } map { [$_, $_ % 2] } 1 .. 100;
    is_deeply \@sorted, [(map { [$_ * 2, 0] } 1 .. 50), (map { [$_ * 2 - 1, 1] } 1 .. 50)];
}

{
    use sort 'stable';
    test_sort;
}

done_testing;