View | Details | Raw Unified | Return to bug 19069
Collapse All | Expand All

(-)a/Koha/MoreUtils.pm (-3 / +1 lines)
Lines 3-10 package Koha::MoreUtils; Link Here
3 
use Modern::Perl;
 3 
use Modern::Perl;
4 

          4
          

        

        

          5
          
# From  List::MoreUtils v4.0

          5
          
# From  List::MoreUtils v4.0

        

          
            

              6
              
sub singleton (@)


              6
              
sub singleton {

            

            

              7
              
{


              
              
            

        

          8
          
    my %seen = ();

          7
          
    my %seen = ();

        

        

          9
          
    my $k;

          8
          
    my $k;

        

        

          10
          
    my $seen_undef;

          9
          
    my $seen_undef;

        

            

              11
              
- 

              
              
            






  

  Return to bug 19069