File Coverage

bin/idoit-query.pl

Criterion	Covered	Total	%
statement	32	58	55.1
branch	4	16	25.0
condition	2	3	66.6
subroutine	8	12	66.6
pod			n/a
total	46	89	51.6

#!/usr/bin/env perl
#
use strict;
use warnings;
use 5.010;

use Getopt::Long;
use Pod::Usage;
use WebService::IdoitAPI::Object;

use version; our $VERSION = '0.4.6'; # VERSION

sub get_answer {
    my ($config,$api,$query) = @_;

    my $answer = $api->request($query);

    return $answer;
} # get_answer()

sub get_query {
    my ($config) = @_;
    my ($json,$jsontext,$query);

    if (exists $config->{opt}->{file}
        and my $fname = $config->{opt}->{file}) {
        local $/ = undef;
        if ($fname eq '-') {
            $jsontext = ;
        }
        else {
            open(my $fh,'<',$fname)
                or die "Can't open JSON query file '$fname': $!";
            $jsontext = <$fh>;
            close($fh);
        }
    }
    else {
        $jsontext = $ARGV[0];
    }
    $json = JSON->new();
    $query = $json->decode($jsontext);
    return $query;
} # get_query();

sub initialize {
    my $config = {};
    my $opt = {};
    GetOptions($opt, qw(
        config|c=s
        file|f=s
        pretty!
        help|h|? man version|V
    ));
    pod2usage(-exitstatus => 0, -input => \*DATA)       if $opt->{help};
    pod2usage(-exitstatus => 0, -input => \*DATA,
              -verbose => 2)                            if $opt->{man};
    pod2usage(-exitstatus => 0, -input => \*DATA,
              -verbose => 99, -sections => 'VERSION')   if $opt->{version};

    $config = WebService::IdoitAPI::read_config($opt->{config});

    $config->{opt} = $opt;

    return $config;
} # initialize()

sub print_json {
    my ($config,$data) = @_;

    my $json = JSON->new();

    if ( $config->{opt}->{pretty} ) {
        print $json->canonical->pretty->encode($data);
    }
    else {
        print $json->encode($data);
    }
} # print_json()

sub main {
    my ($api,$config,$data,$query);

    $config = initialize();
    $api = WebService::IdoitAPI->new($config);
    $query = get_query($config);
    $data = get_answer($config,$api,$query);
    if ($data->{is_success}) {
        print_json($config,$data->{content});
    }
    else {
        die "i-doit did not return success\n";
    }
} # main()

main() if not caller();

1;

__END__