1 |
use Data::Dump qw/dump/; |
2 |
|
3 |
sub marc {}; |
4 |
|
5 |
sub lookup { |
6 |
my ( $db, $input, $from, $op, $to, $closure ) = @_; |
7 |
|
8 |
print dump(@_),$/; |
9 |
} |
10 |
|
11 |
marc('777','v', |
12 |
|
13 |
lookup( |
14 |
'ffkk','peri', [ '11' ], 'eq', |
15 |
[ '11' ], |
16 |
sub { |
17 |
'ffkk/perl' . lrec('000') |
18 |
} |
19 |
) || lookup( |
20 |
'ffkk','peri', [ qw/200 a 200 e/ ], 'eq', |
21 |
[ qw/200 a 200 e/ ], |
22 |
sub { |
23 |
'ffkk/perl' . lrec('000') |
24 |
} |
25 |
) || lookup( |
26 |
'ffkk','peri', [ qw/200 a/ ], 'eq', |
27 |
[ qw/200 a/ ], |
28 |
sub { |
29 |
'ffkk/perl' . lrec('000') |
30 |
} |
31 |
) |
32 |
|
33 |
); |