conf/lookup/ffkk-arti.pl

use Data::Dump qw/dump/;

sub marc {};

sub lookup {
        my ( $db, $input, $from, $op, $to, $closure ) = @_;

        print dump(@_),$/;
}

marc('777','v',

        lookup(
                'ffkk','peri',  [ '11' ],               'eq',
                                [ '11' ],
                sub {
                        'ffkk/perl' . lrec('000')
                }
        ) || 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')
                }
        )

);
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	);