1 package DBIx::Class::CDBICompat::Stringify;
10 return Scalar::Util::refaddr($_[0]) if (caller)[0] eq 'NEXT';
11 return shift->stringify_self; },
16 my @cols = $self->columns('Stringify');
17 @cols = $self->primary_column unless @cols;
18 my $ret = join "/", map { $self->get_column($_) } @cols;
19 return $ret || ref $self;