#!/usr/bin/perl -w
use strict;
use Test::More;
use DBI;
if ($^O !~ /Win32/i) {
plan skip_all => "DBD::WMI only works on Win32 so far";
} else {
plan tests => 1;
};
my $dbh = DBI->connect('dbi:WMI:');
isa_ok $dbh, 'DBI::db';
#!/usr/bin/perl -w
use strict;
use Test::More;
use DBI;
if ($^O !~ /Win32/i) {
plan skip_all => "DBD::WMI only works on Win32 so far";
} else {
plan tests => 1;
};
my $dbh = DBI->connect('dbi:WMI:');
isa_ok $dbh, 'DBI::db';