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