File Coverage

blib/lib/SQL/Tree.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	44	48	91.6

package SQL::Tree;
use strict;
use warnings;
use File::Basename;
use File::ShareDir::Dist 'dist_share';
use File::Spec;
use Template::Tiny;

our $VERSION = '0.05_1';

my $tt = Template::Tiny->new( TRIM => 0, );

sub generate {
    my $ref = shift;

    $ref->{table_tree} = $ref->{table} . $ref->{postfix};
    $ref->{program}    = __PACKAGE__;
    $ref->{localtime}  = scalar localtime;
    $ref->{version}    = $VERSION;

    local $ref->{separator} = $ref->{separator} =~ s/'/''/gr;

    die 'path requires a name'
      if exists $ref->{path} and not exists $ref->{name};

    my $dist_share = dist_share('SQL-Tree');
    my $template = File::Spec->catfile( $dist_share, $ref->{driver} . '.sqlt' );

    open my $fh, '<', $template or die 'unsupported driver: ' . $ref->{driver};
    my $sqlt = do { local $/; <$fh> };

    $tt->process( \$sqlt, $ref, \my $output );
    $output;
}

1;

__END__