[scpubgit/Q-Branch.git] / lib / SQL / Abstract / Parts.pm

package SQL::Abstract::Parts;

use strict;
use warnings;

use overload '""' => 'stringify', fallback => 1;

sub new {
  my ($proto, @args) = @_;
  bless(\@args, ref($proto) || $proto);
}

sub stringify {
  my ($self) = @_;
  my ($join, @parts) = @$self;
  return join $join, @parts;
}

1;
Commit	Line	Data
b84764fb	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;