12345678910111213141516 use Test::More tests => 5;require DBI;pass 'DBI required';import DBI;pass 'DBI imported';$switch = DBI->internal;is ref $switch,'DBI::dr','switch';$drh = DBI->install_driver('ADO');is ref $drh,'DBI::dr','drh';ok $drh->{Version},'Version: ' . $drh->{Version};
use
Test::More
tests
=> 5;
require
DBI;
pass
'DBI required'
;
import
'DBI imported'
$switch
= DBI->internal;
is
ref
,
'DBI::dr'
'switch'
$drh
= DBI->install_driver(
'ADO'
);
'drh'
ok
->{Version},
'Version: '
.
->{Version};