[exim.git] / test / lib / Exim / Utils.pm

package Exim::Utils;
use v5.10.1;
use strict;
use warnings;
use parent 'Exporter';
our @EXPORT_OK = qw(uniq numerically);


sub uniq {
    my %uniq = map { $_, undef } @_;
    return keys %uniq;
}

sub numerically { $::a <=> $::b }

1;
Commit	Line	Data
4d8393c0 HSHR	1	package Exim::Utils;
	2	use v5.10.1;
	3	use strict;
	4	use warnings;
	5	use parent 'Exporter';
	6	our @EXPORT_OK = qw(uniq numerically);
	7
	8
	9	sub uniq {
	10	my %uniq = map { $_, undef } @_;
	11	return keys %uniq;
	12	}
	13
	14	sub numerically { $::a <=> $::b }
	15
	16	1;