test/lib/Exim/Utils.pm

   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;