File Coverage

blib/lib/YVDHOVE/List.pm

Criterion	Covered	Total	%
statement	61	64	95.3
branch	8	12	66.6
condition	2	6	33.3
subroutine	9	9	100.0
pod	5	5	100.0
total	85	96	88.5

package YVDHOVE::List;

use 5.008000;
use strict;
use warnings;

require Exporter;

# ---------------------------------------------------------------------------------

our @ISA         = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw( ArrayToDelimitedList
									HashToDelimitedList
									DelimitedListToArray
									DelimitedListToHash
									DelimitedKeyValuePairToHash ) ] );
our @EXPORT_OK   = ( @{ $EXPORT_TAGS{'all'} });
our @EXPORT      = ();

our $VERSION     = '1.03';

# ---------------------------------------------------------------------------------

sub ArrayToDelimitedList($$$) {

	my ($myArrayRef, $delimiter, $debug) = @_;

	my $list = '';

	if( @$myArrayRef ) {
		@$myArrayRef = sort(@$myArrayRef);
		$list = join($delimiter, @$myArrayRef);
	} else {
		$list = '';
	}

	return $list;
}

# ---------------------------------------------------------------------------------

sub HashToDelimitedList($$$) {

	my ($myHASH, $delimiter, $debug) = @_;

	my $list = '';

	for my $key ( sort keys %$myHASH ) {
		$list .= $key . $delimiter;
	}

	chop($list);

	return $list;
}

# ---------------------------------------------------------------------------------

sub DelimitedListToArray($$$$) {

	my ($myList, $delimiter, $count, $debug) = @_;

	my @myArray = ();

	if (defined $myList && $myList ne '') {
		my @items = split(/$delimiter/, $myList);
		my $number = 0; my $value = '';
		foreach my $item (@items) {
	  		$value .= $item . $delimiter;
	  		$number++;
		  	if ($number == $count) {
	    		chop($value);
	    		push( @myArray, $value );
	    		$value = ''; $number = 0;
	  		}
		}
		@myArray = sort(@myArray);
	}

	return \@myArray;
}

# ---------------------------------------------------------------------------------

sub DelimitedListToHash($$$$) {

	my ($myList, $delimiter, $count, $debug) = @_;
	my @items  = split (/$delimiter/, $myList) if (defined $myList && $myList ne '');
	my $number = 0; my $key = '';
	my %myHASH = ();

	foreach my $item (@items) {
	  $key .= $item . $delimiter;
	  $number++;

	  if ($number == $count) {
	    chop $key;
	    $myHASH{$key} = undef;
	    $key = '';
	    $number = 0;
	  }
	}

	return \%myHASH;
}

# ---------------------------------------------------------------------------------

sub DelimitedKeyValuePairToHash($$$) {

	my ($myList, $delimiter, $debug) = @_;

	use Tie::IxHash;
	my %myHASH;
	tie(%myHASH, 'Tie::IxHash');
	%myHASH = map { my ($key, $value) = split (/=/) } split (/$delimiter/, $myList);

	if($debug) {
		print "Delimited List: " . $myList . "\n";
		print "Size of myHASH: " . keys( %myHASH ) . "\n";
	}

	return \%myHASH;
}

# ---------------------------------------------------------------------------------

1;

# ---------------------------------------------------------------------------------
__END__