git.rot13.org Git - webpac2/blob - t/conf/normalize/baz.pl

   1 marc('900','x',
   2         lookup(
   3                 sub { rec('200','a') . ' ' . rec('200','b') },
   4                 'no-database','baz',
   5                 sub { rec('245','a') },
   6         ),
   7         lookup(
   8                 sub { rec('200','a') . ' ' . rec('200','b') },
   9                 'foo','no-input',
  10                 sub { rec('245','a') },
  11         ),
  12         lookup(
  13                 sub { rec('200','a') . ' ' . rec('200','b') },
  14                 'foo','foo-input2',
  15                 sub { rec('245','a') },
  16         ),
  17         lookup(
  18                 sub { rec('000') },
  19                 'bar', 'bar-input',
  20                 sub { rec('900','x') },
  21         );
  22 );