File Coverage

blib/lib/Acme/Rautavistic/Sort.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	4	4	100.0
condition			n/a
subroutine	12	12	100.0
pod	2	2	100.0
total	59	59	100.0

package Acme::Rautavistic::Sort;
BEGIN {
  $Acme::Rautavistic::Sort::AUTHORITY = 'cpan:SCHWIGON';
}
# ABSTRACT: Rautavistic sort functions

use warnings;
use strict;
use 5.006;

our $VERSION = '0.02';

use Scalar::Util 'reftype';
require Exporter;

use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);

@ISA = qw(Exporter);

@EXPORT_OK   = qw(dropsort dropsortx);
%EXPORT_TAGS = (all => [ qw(dropsort dropsortx) ]);

sub dropsort {
        no warnings 'uninitialized';
        my $last;
        map { $_ ge $last ? $last = $_ : () } @_;
}

sub dropsortx(&@)
{
        # magic variables $a and $b
        use vars qw($a $b);
        no strict 'refs';
        no warnings 'uninitialized';
        my $caller = caller;
        local(*{$caller."::a"}) = \my $a;
        local(*{$caller."::b"}) = \my $b;

        my $comparator = shift;
        my $last;
        map {
             $a = $_;
             $b = $last;
             $comparator->() >= 0 ? $last = $_ : ()
            } @_;
}

1; # End of Acme::Rautavistic::Sort

# TODOs / Ideas:
#   Attribute : Rautavistic(dropsort)
#    an Arrays, always keep dropsort sort order, after each change on array

__END__