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