|
use Data::Dump qw/dump/; |
|
1 |
|
|
2 |
sub marc {}; |
marc_indicators('777', 0, ' '); |
3 |
|
|
4 |
sub lookup { |
marc('777','w', |
5 |
my ( $db, $input, $from, $op, $to, $closure ) = @_; |
lookup( |
6 |
|
sub { 'ffkk/peri/' . rec('000') }, |
7 |
print dump(@_),$/; |
'ffkk','peri', |
8 |
} |
sub { rec('11') } |
9 |
|
) || |
10 |
marc('777','v', |
lookup( |
11 |
|
sub { 'ffkk/peri/' . rec('000') }, |
12 |
|
'ffkk','peri', |
13 |
|
sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) }, |
14 |
|
) || |
15 |
|
|
16 |
lookup( |
lookup( |
17 |
'ffkk','peri', [ '11' ], 'eq', |
sub { "ffkk/peri/" . rec('000') }, |
18 |
[ '11' ], |
'ffkk','peri', |
19 |
sub { |
sub { rec(200,'a') }, |
20 |
'ffkk/perl' . lrec('000') |
# sub { rec(900,'x') }, |
|
} |
|
|
) || lookup( |
|
|
'ffkk','peri', [ qw/200 a 200 e/ ], 'eq', |
|
|
[ qw/200 a 200 e/ ], |
|
|
sub { |
|
|
'ffkk/perl' . lrec('000') |
|
|
} |
|
|
) || lookup( |
|
|
'ffkk','peri', [ qw/200 a/ ], 'eq', |
|
|
[ qw/200 a/ ], |
|
|
sub { |
|
|
'ffkk/perl' . lrec('000') |
|
|
} |
|
21 |
) |
) |
22 |
|
|
23 |
); |
); |
24 |
|
|