#!perl package NetworkTests; # $AFresh1: network_tests.t,v 1.1 2010/06/26 16:33:33 andrew Exp $ use strict; use warnings; use Test::More; use Net::OpenAMD; if (!caller()) { if ($ENV{'NETWORK_TESTS'}) { # plan tests => ??; } else { plan skip_all => "Set env NETWORK_TESTS to test" } my $amd = Net::OpenAMD->new(); run_tests($amd); done_testing(); } 1; sub run_tests { my ($amd) = @_; ok(1); }