view release on metacpan or  search on metacpan

example/client.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use Data::Dumper;
use Data::HexDump;
use Time::HiRes;

use Data::Radius::Constants qw(:all);
use AnyEvent::Radius::Client;

my $dict = AnyEvent::Radius::Client->load_dictionary('radius/dictionary');

my @result = ();

example/server.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use Data::Dumper;
use Data::HexDump;
use Time::HiRes;

use Data::Radius::Constants qw(:all);
use AnyEvent::Radius::Server ();

my $dict = AnyEvent::Radius::Server->load_dictionary('radius/dictionary');

my @result = ();