view release on metacpan or  search on metacpan

examples/v2/kas/constructor  view on Meta::CPAN

#!/usr/local/bin/perl

use blib;

use strict;
use AFS::KAS;
use AFS::KTC_TOKEN;

die "Usage: $0 \n" if $#ARGV != -1;

my $kas = AFS::KAS->AuthServerConn(AFS::KTC_TOKEN->nulltoken, &AFS::KA_MAINTENANCE_SERVICE);
if ($AFS::CODE) { print "Error Code: $AFS::CODE\n"; }
else { print "OK \n"; }

test_it($kas);

sub test_it {
    my $self = shift;
    $self->DESTROY;
}