view release on metacpan or  search on metacpan

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

#!/usr/local/bin/perl

use v5.10.0;
use blib;
use strict;
use warnings;

use AFS::VLDB;

my ($verbose, $vldb);

die "Usage: $0 [verbose]\n" if $#ARGV > 0;

$verbose = shift // 0;

$vldb = AFS::VLDB->new($verbose);
if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }
else            { print "OK \n"; }

test_it($vldb);

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