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