1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use Test::More;
use strict; use warnings FATAL => 'all';
use List::Objects::WithUtils 'hash';
my $hr = hash(a => 1, b => 2, c => 3, d => 4 );
ok $hr->get_or_else('b') == 2, 'single-arg get_or_else ok';
ok !$hr->get_or_else('e'), 'single-arg negative get_or_else ok';
cmp_ok $hr->get_or_else(b => 9), '==', 2,
'get_or_else found item ok';
cmp_ok $hr->get_or_else(e => 'foo'), 'eq', 'foo',
'get_or_else defaulted to scalar ok';
my ($invoc, $key);
cmp_ok $hr->get_or_else(e => sub { ($invoc, $key) = @_; 'foo' }),
'eq', 'foo',
'get_or_else executed coderef ok';
cmp_ok $invoc, '==', $hr, 'get_or_else coderef invocant ok';
cmp_ok $key, 'eq', 'e', 'get_or_else coderef key ok';
done_testing;
|
