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; |