conf/lookup/example.pm

=pod

=head1 NAME

WebPAC lookup file definition example

Required fields are C<key> and C<val>. Optional field C<eval> is perl code
to evaluate before storing value in lookup.

=cut

@lookup = (
        { 'key' => '900:v900', 'val' => 'filter{upper}v800' },
        { 'eval' => qq{length("v900") == 3},
                'key' => '900:v900', 'val' => 'v800'
        },
        { 'key' => '800:v800', 'val' => 'v900' },
        { 'key' => '000:v000', 'val' => 'v000' },
);
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	);