lib/SQL/Abstract/Parts.pm

   1 package SQL::Abstract::Parts;
   2
   3 use strict;
   4 use warnings;
   5
   6 use overload '""' => 'stringify', fallback => 1;
   7
   8 sub new {
   9   my ($proto, @args) = @_;
  10   bless(\@args, ref($proto) || $proto);
  11 }
  12
  13 sub stringify {
  14   my ($self) = @_;
  15   my ($join, @parts) = @$self;
  16   return join $join, @parts;
  17 }
  18
  19 1;