test is case insensitive, result should be lower cased
[scpubgit/Q-Branch.git] / lib / SQL / Abstract / Parts.pm
CommitLineData
b84764fb 1package SQL::Abstract::Parts;
2
b3b54441 3use Module::Runtime ();
4use Scalar::Util ();
b84764fb 5use strict;
6use warnings;
7
8use overload '""' => 'stringify', fallback => 1;
9
10sub new {
b3b54441 11 my ($proto, $join, @parts) = @_;
12 bless([
13 $join, map Scalar::Util::blessed($_) ? [ @$_ ] : $_, @parts
14 ], ref($proto) || $proto);
b84764fb 15}
16
17sub stringify {
18 my ($self) = @_;
19 my ($join, @parts) = @$self;
07070f1a 20 return join($join, map +(ref() ? stringify($_) : $_), @parts);
b3b54441 21}
22
23sub to_array { return @{$_[0]} }
24
07070f1a 25sub formatter {
b3b54441 26 my ($self, %opts) = @_;
27 Module::Runtime::use_module('SQL::Abstract::Formatter')
28 ->new(%opts)
07070f1a 29}
30
31sub format {
32 my ($self, %opts) = @_;
33 $self->formatter(%opts)
34 ->format($self->to_array);
b84764fb 35}
36
371;