| Subject: | UNIVERSAL::can() called as a function. |
The UNIVERSAL::can module (loaded by Test::MockObject) is "helpfully"
informing me of this...
Called UNIVERSAL::can() as a function, not a method at
/usr/lib/perl5/site_perl/5.8.0/Class/DBI.pm line 265
Technically it should be calling can on the object rather than as a method.
eval { $_->can("id") } and $_ = $_->id for @pk_values;
Or just eliminate the ->can() call entirely.
for(@pk_values) { eval { $_ = $_->id } }