File Coverage

bin/ysql

Criterion	Covered	Total	%
statement	25	27	92.5
branch	6	8	75.0
condition	3	3	100.0
subroutine	5	5	100.0
pod			n/a
total	39	43	90.7

#!/usr/bin/env perl
package ysql;
our $VERSION = '0.035';
# ABSTRACT: Query SQL databases in a Yertl workflow

use ETL::Yertl;
use Pod::Usage::Return qw( pod2usage );
use Getopt::Long qw( GetOptionsFromArray :config pass_through );
use ETL::Yertl::Command::ysql;

$|++; # no buffering

sub main {
    my ( $class, @argv ) = @_;
    my %opt;
    GetOptionsFromArray( \@argv, \%opt,
        'help|h',
        'version',
        'dsn=s',
    );
    return pod2usage(0) if $opt{help};
    if ( $opt{version} ) {
        print "ysql version $ysql::VERSION (Perl $^V)\n";
        return 0;
    }

    eval {
        ETL::Yertl::Command::ysql->main( @argv, \%opt );
    };
    if ( $@ ) {
        # SQL errors do not need usage information
        # XXX: We need to have some kind of error return message
        if ( $@ =~ /^SQL error/ || $@ =~ /^Could not connect/ ) {
            print STDERR "ERROR: $@";
            return 1;
        }
        return pod2usage( "ERROR: $@" );
    }
    return 0;
}

exit __PACKAGE__->main( @ARGV ) unless caller(0);

__END__