5 use SQL::Abstract::Tree;
7 my $placeholders = ['station', 'lolz'];
10 my $sqlat = SQL::Abstract::Tree->new({
11 fill_in_placeholders => 1,
12 placeholder_surround => [qw(; -)],
15 is($sqlat->fill_in_placeholder($placeholders), q(';lolz-'),
16 'placeholders are populated correctly'
21 my $sqlat = SQL::Abstract::Tree->new({
22 fill_in_placeholders => 1,
23 placeholder_surround => [qw(< >)],
26 is($sqlat->fill_in_placeholder($placeholders), q('<station>'),
27 'placeholders are populated correctly and in order'