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

   1 marc('777','v',
   2         lookup(
   3                 sub { '1st-1' . rec('000') },
   4                 'foo','foo-input1',
   5                 sub { rec('11') }
   6         ) ||
   7         lookup(
   8                 sub { '1st-2' . rec('000') },
   9                 'foo','foo-input2',
  10                 sub { rec('11') }
  11         ) ||
  12         lookup(
  13                 sub { '2nd-1:' . rec('000') },
  14                 'bar','bar-input',
  15                 sub { rec(210,'a') . rec('210','e') },
  16         ) ||
  17         lookup(
  18                 sub { '2nd-2:' . rec('000') },
  19                 'bar','bar-input',
  20                 sub { rec(220,'a') . rec('220','e') },
  21         ) ||
  22         lookup(
  23                 sub { '2nd-3:' . rec('000') },
  24                 'bar','bar-input',
  25                 sub { rec(230,'a') . rec('230','e') },
  26         ) ||
  27         lookup(
  28                 sub { "3rd:" . rec('000') },
  29                 'baz','baz-input',
  30                 sub { rec(200,'a') },
  31                 sub { rec(900,'x') },
  32         )
  33 );
  34