Select Code to Download

package ProcInfo;

...
}

1;

package ProcInfo_linux;

...
}

1;

use Test::More tests => 3;
BEGIN { use_ok('ProcInfo') };
...
my $pInfo = new ProcInfo;
is(ref($pInfo), "ProcInfo_$^O", "Factory new Works");
ok($pInfo->method_1());