lib/DBIx/Class/CDBICompat/Stringify.pm

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