lib/DBIx/Class/CDBICompat/Stringify.pm

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