The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package main;

use strict;
use warnings;

use File::Spec;
use Test::More 0.88;

BEGIN {
    eval {
	require Test::Perl::Critic;
	Test::Perl::Critic->import(
	    -profile => File::Spec->catfile(qw{xt author perlcriticrc})
	);
	1;
    } or do {
	plan skip_all => 'Test::Perl::Critic required to criticize code.';
	exit;
    };
}

plan (tests => 3);
critic_ok(File::Spec->catfile(qw{lib Win32 Process Info.pm}));
critic_ok(File::Spec->catfile(qw{lib Win32 Process Info NT.pm}));
critic_ok(File::Spec->catfile(qw{lib Win32 Process Info PT.pm}));

# Can't do the following until NT.pm and WMI.pm are brought into compliance
# all_critic_ok('lib');
# all_critic_ok();

1;