1package # hide from PAUSE 2 DBIx::Class::CDBICompat::Stringify; 3 4use strict; 5use warnings; 6 7use Scalar::Util; 8 9use overload 10 '""' => sub { return shift->stringify_self; }, 11 fallback => 1; 12 13sub stringify_self { 14 my $self = shift; 15 my @cols = $self->columns('Stringify'); 16 @cols = $self->primary_column unless @cols; 17 my $ret = join "/", map { $self->get_column($_) || '' } @cols; 18 return $ret || ref $self; 19} 20 211; 22