git.rot13.org Git - webpac2/blob - conf/lookup/example.pm

   1 =pod
   2
   3 =head1 NAME
   4
   5 WebPAC lookup file definition example
   6
   7 Required fields are C<key> and C<val>. Optional field C<eval> is perl code
   8 to evaluate before storing value in lookup.
   9
  10 =cut
  11
  12 @lookup = (
  13         { 'key' => '900:v900', 'val' => 'filter{upper}v800' },
  14         { 'eval' => qq{length("v900") == 3},
  15                 'key' => '900:v900', 'val' => 'v800'
  16         },
  17         { 'key' => '800:v800', 'val' => 'v900' },
  18         { 'key' => '000:v000', 'val' => 'v000' },
  19 );