| Subject: | has_a doesn't handle simple Perl data structures in 0.96 |
until 0.95 you coulod specify hash and array references as a
type for has_a(), like this:
__PACKAGE__->has_a( foo => 'HASH',
inflate => sub { Storable::thaw( pack("h*", shift ) ) },
deflate => sub { unpack ("h*", Storable::nfreeze(shift) ) }
);
However, now Class::DBI::Relationship::HasA line 41 does this:
return if ref $value and $value->isa($a_class);
Which will fail, because while $value is a ref, it's not a blessed
reference. Can this be changed to read
return if ref $value and UNIERSAL::isa($value, $a_class);