1#!./perl 2 3use strict; 4use warnings; 5 6use Test::More tests => 3; 7 8use List::Util qw( sum0 ); 9 10my $v = sum0; 11is( $v, 0, 'no args' ); 12 13$v = sum0(9); 14is( $v, 9, 'one arg' ); 15 16$v = sum0(1,2,3,4); 17is( $v, 10, '4 args'); 18