Commit | Line | Data |
---|---|---|
10ef31e2 | 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; |