use DBI; my $dbh=DBI->connect("dbi:SQLite:dbname=dbfile"); warn $dbh; print "can error: ", $dbh->can("error"),"\n"; print "UNIVERSAL::can((", UNIVERSAL::can($dbh,'error'),"\n"; eval {print $dbh->error('eeep');};warn $@ if $@; bless $dbh, "My::Special::DBI::db"; warn $dbh; print "can error: ", $dbh->can("error"),"\n"; print "UNIVERSAL::can((", UNIVERSAL::can($dbh,'error'),"\n"; eval {print $dbh->error('eeep');};warn $@ if $@; print "\n-----\n\n"; package My::Special::DBI::db; use base qw(DBI::db); sub error { my $dbh=shift; return $dbh->errstr(); } __END__ DBI::db=HASH(0x19b7f1c) at dbi.dbd.error.subclass.pl line 3. can error: UNIVERSAL::can(( Can't locate object method "error" via package "DBI::db" at dbi.dbd.er +ror.subclass.pl line 6. My::Special::DBI::db=HASH(0x19b7f1c) at dbi.dbd.error.subclass.pl line + 8. can error: UNIVERSAL::can((CODE(0x19978e4) -----
In reply to Re: special $dbh can't error?
by Anonymous Monk
in thread special $dbh can't error?
by themage
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |