Jonathan Druart
0e7b093a10
Subroutine prototypes used at line 6, column 1. See page 194 of PBP. (Severity: 5) Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
14 lines
287 B
Perl
14 lines
287 B
Perl
package Koha::MoreUtils;
|
|
|
|
use Modern::Perl;
|
|
|
|
# From List::MoreUtils v4.0
|
|
sub singleton {
|
|
my %seen = ();
|
|
my $k;
|
|
my $seen_undef;
|
|
grep { 1 == ( defined $_ ? $seen{ $k = $_ } : $seen_undef ) }
|
|
grep { defined $_ ? not $seen{ $k = $_ }++ : not $seen_undef++ } @_;
|
|
}
|
|
|
|
1;
|