1234567891011 use Test::More;use strict; use warnings FATAL => 'all';use List::Objects::WithUtils 'array';my $arr = array;ok $arr->count == 0, 'count returned 0 on empty array';$arr->push( 1, 2, 3);ok $arr->count == 3, 'count returned correct item count';done_testing;
use
Test::More;
strict;
warnings
FATAL
=>
'all'
;
List::Objects::WithUtils
'array'
my
$arr
= array;
ok
->count == 0,
'count returned 0 on empty array'
->
push
( 1, 2, 3);
->count == 3,
'count returned correct item count'
done_testing;