1#! /usr/bin/perl
2#
3# Sample dictionary configuration for Net::Radius::Server
4#
5# Copyright © 2006, Luis E. Muñoz
6#
7# This file defines a dictionary provider method that returns a simple
8# dictionary.
9#
10# $Id: def-dictionary.pl 74 2007-04-21 17:13:14Z lem $
11
12use strict;
13use warnings;
14
15use Net::Radius::Dictionary;
16
17# For performance, we will use a closure to return the same (parsed)
18# dictionary on each call. Parsing a dictionary for each request is ok
19# for very low rate or requests.
20
21my @dicts = qw( dictionary );
22
23my $d = Net::Radius::Dictionary->new(@dicts);
24
25sub { $d || die "Unable to parse dictionaries (", join(',', @dicts), ")\n" };
26
27