File Coverage

blib/lib/App/sqltree.pm

Criterion	Covered	Total	%
statement	37	39	94.8
branch	2	4	50.0
condition	6	18	33.3
subroutine	8	8	100.0
pod	0	1	0.0
total	53	70	75.7

package App::sqltree;
use strict;
use warnings;
use File::ShareDir qw/dist_dir/;
use IO::Prompt::Tiny qw/prompt/;
use OptArgs qw/arg opt optargs/;
use Path::Tiny qw/path/;
use Template::Tiny;

our $VERSION = '0.0.5_2';

arg driver => (
    isa     => 'Str',
    comment => 'database driver type (SQLite | Pg)',
);

arg table => (
    isa     => 'Str',
    comment => 'the table name',
);

arg pk => (
    isa     => 'Str',
    comment => 'the primary key column name',
);

arg parent => (
    isa     => 'Str',
    comment => 'the parent column name',
);

arg type => (
    isa     => 'Str',
    comment => 'the SQL type of the primary key and parent columns',
);

opt help => (
    isa     => 'Bool',
    comment => 'print a usage message and exit',
    alias   => 'h',
    ishelp  => 1,
);

opt path => (
    isa     => 'Str',
    comment => 'the path column name',
    alias   => 'p',
);

opt path_from => (
    isa     => 'Str',
    comment => 'the source of the path column calculation',
    alias   => 'f',
);

opt order => (
    isa     => 'Str',
    comment => 'the order column name',
    alias   => 'o',
);

opt no_print => (
    isa     => 'Bool',
    comment => 'do not print the output, just return it',
    hidden  => 1,
);

sub run {
    my $opts = shift;
    my $share_dir =
      path( $Test::App::sqltree::SHARE_DIR || dist_dir('SQL-Tree') );

    $opts->{driver} ||= prompt( 'Driver:', 'SQLite' );
    my $template = $share_dir->child( $opts->{driver} . '.sql' );
    die "Unsupported driver type: $opts->{driver}\n" unless -f $template;

    $opts->{table}  ||= prompt( 'Table:',                 'items' );
    $opts->{pk}     ||= prompt( 'Primary Key Column:',    'id' );
    $opts->{parent} ||= prompt( 'Parent Column:',         'parent_id' );
    $opts->{type}   ||= prompt( 'PK/Parent Column Type:', 'integer' );

    $opts->{tree} = $opts->{table} . '_tree';

    my $tt  = Template::Tiny->new;
    my $src = $template->slurp_utf8;
    my $sql;

    $tt->process( \$src, $opts, \$sql );

    if ( $opts->{no_print} ) {
        return split( /[\n\s]*-+SPLIT-+[\n\s]*/m, $sql );
    }
    else {
        $sql =~ s/[\n\s]*-+SPLIT-+[\n\s]*/\n\n/mg;
        print $sql;
    }
}

1;
__END__