handler attributes

How strict should handler attributes be checked?
Isn't barfing on fetchrow_hashref () not a tad bit too late in below
described situation?

/tmp > cat test.pl
#!/pro/bin/perl

use strict;
use warnings;

use DBI;
use Data::Peek;

my ($dsn, $fhkn) = @ARGV;

my $dbh = DBI->connect ($dsn, $ENV{DBI_USER}, $ENV{DBI_PASS}, {
    FetchHashKeyName    => $fhkn,
    PrintError          => 1,
    RaiseError          => 1,
    }) or die $DBI::errstr;

my $sth = $dbh->prepare ("select * from test");
   $sth->execute;
DDumper $sth->fetchrow_hashref;
/tmp >

/tmp > perl test.pl dbi:Pg: NAME_lc
$VAR1 = {
    c_test           => '1',
    test             => 'test'
    };
/tmp > perl test.pl dbi:Pg: NAME_uc
$VAR1 = {
    C_TEST           => '1',
    TEST             => 'test'
    };
/tmp > perl test.pl dbi:Pg: NAME
$VAR1 = {
    c_test           => '1',
    test             => 'test'
    };
/tmp > perl test.pl dbi:Pg: 1
DBD::Pg::st fetchrow_hashref failed: Can't use attribute '1' because it doesn't contain a reference to an array (undef) at test.pl line 19.
DBD::Pg::st fetchrow_hashref failed: Can't use attribute '1' because it doesn't contain a reference to an array (undef) at test.pl line 19.
Exit 255
/tmp >


/tmp > perl test.pl dbi:CSV: NAME_lc
$VAR1 = {
    c_test           => '1',
    test             => 'test'
    };
/tmp > perl test.pl dbi:CSV: NAME_uc
$VAR1 = {
    C_TEST           => '1',
    TEST             => 'test'
    };
/tmp > perl test.pl dbi:CSV: NAME
$VAR1 = {
    c_test           => '1',
    test             => 'test'
    };
/tmp > perl test.pl dbi:CSV: 1
DBD::CSV::st fetchrow_hashref failed: Can't use attribute '1' because it doesn't contain a reference to an array (undef) [for Statement "select * from test"] at test.pl line 19.
DBD::CSV::st fetchrow_hashref failed: Can't use attribute '1' because it doesn't contain a reference to an array (undef) [for Statement "select * from test"] at test.pl line 19.
Exit 255
/tmp >



-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/