/usr/share/perl5/DBI/Test/Case/attributes/Warn.pm is in libdbi-test-perl 0.001-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | use strict;
use warnings;
use Test::More;
our @DB_CREDS = ('dbi:SQLite::memory:', undef, undef, { AutoCommit => 0});
my %SQLS = (
'SELECT' => 'SELECT 1+1',
'INSERT' => undef
);
{ #Check that warn is enabled by default
my $dbh = DBI->connect( @DB_CREDS[0..2], {} );
isa_ok($dbh, 'DBI::db');
ok($dbh->{Warn}, '$dbh->{Warn} is true');
ok($dbh->FETCH('Warn'), '$dbh->FETCH(Warn) is true');
}
done_testing();
|