Select Code to Download

#!/usr/bin/perl
use NaServer qw(run);
run(@ARGV);

#!/usr/bin/perl -w
use warnings;
...
    say $msg;
    return;
}

package NaServerExt;
# this is a wrapper around the *dummy version* of NaServer !!
...
nearly to nothing to do with NetApps NaServer modules!!

=cut

#!/usr/bin/perl -w
use warnings;
...
       "$case->{'name'}: exit-value as expected" );
}

package NaServer;
# this is just a dummy version of NetApps NaServer !!
...
}

1;