File Coverage

blib/lib/App/TestOnTap/OrderStrategy.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	12	16	75.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	0	3	0.0
total	49	57	85.9

package App::TestOnTap::OrderStrategy;

use strict;
use warnings;

use List::Util qw(shuffle);
use Sort::Naturally qw(nsort);

# CTOR
#
sub new
{
	my $class = shift;
	my $strategy = shift || 'none';

	die("Unknown order strategy: $strategy\n") unless $strategy =~ /^(?:none|(r?)(?:alphabetic|natural)|random)$/i;

	my $self = bless( { strategy => $strategy, reverse => ($1 ? 1 : 0) }, $class);

	return $self;
}

# order a list according to the desired strategy
#
sub orderList
{
	my $self = shift;
	my @l = @_;

	if ($self->{strategy} ne 'none')
	{
		if ($self->{strategy} =~ /^r?alphabetic$/)
		{
			@l = sort(@l);
			@l = reverse(@l) if $self->{reverse};
		}
		elsif ($self->{strategy} =~ /^(r?)natural$/)
		{
			@l = nsort(@l);
			@l = reverse(@l) if $self->{reverse};
		}
		elsif ($self->{strategy} eq 'random')
		{
			@l = shuffle(@l);
		}
	}

	return @l;
}

sub getStrategyName
{
	my $self = shift;

	return $self->{strategy};
}

1;