| Apache/2.4.7 (Ubuntu) Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64 uid=33(www-data) gid=33(www-data) groups=33(www-data) safemode : OFF MySQL: ON | Perl: ON | cURL: OFF | WGet: ON > / usr / lib / perl / 5.18.2 / List / | server ip : 172.67.156.115 your ip : 172.70.80.236 H O M E |
| Filename | /usr/lib/perl/5.18.2/List/Util.pm |
| Size | 653 |
| Permission | rw-r--r-- |
| Owner | root : root |
| Create time | 27-Apr-2025 10:10 |
| Last modified | 21-Nov-2018 01:29 |
| Last accessed | 11-Jun-2025 22:19 |
| Actions | edit | rename | delete | download (gzip) |
| View | text | code | image |
# List::Util.pm
#
# Copyright (c) 1997-2009 Graham Barr <[email protected]>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# This module is normally only loaded if the XS module is not available
package List::Util;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(first min max minstr maxstr reduce sum sum0 shuffle);
our $VERSION = "1.27";
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
require XSLoader;
XSLoader::load('List::Util', $XS_VERSION);
sub sum0
{
return 0 unless @_;
goto ∑
}
1;
__END__
#
# Copyright (c) 1997-2009 Graham Barr <[email protected]>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# This module is normally only loaded if the XS module is not available
package List::Util;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(first min max minstr maxstr reduce sum sum0 shuffle);
our $VERSION = "1.27";
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
require XSLoader;
XSLoader::load('List::Util', $XS_VERSION);
sub sum0
{
return 0 unless @_;
goto ∑
}
1;
__END__