view release on metacpan or  search on metacpan

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

#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

use AFS::KTC_PRINCIPAL;
use AFS::Cell qw(expandcell);

die "Usage: $0 principal\n" if ($#ARGV != 0);

my $name = shift;

my $princ = AFS::KTC_PRINCIPAL->new($name);

$princ->cell(expandcell($princ->cell));

print "name      = ", $princ->name, "\n";
print "instance  = ", $princ->instance, "\n";
print "cell      = ", $princ->cell, "\n";
print "principal = ", $princ->principal, "\n";