#!/usr/bin/perl
use utf8;
use v5.22;

use File::Basename qw/ dirname basename /;
use File::Spec;
use Cwd qw/abs_path/;

our @INC;

BEGIN {
    push @INC, File::Spec->catdir( dirname( abs_path($0) ), '../lib' );
}

use Pod::Usage;
use Log::Log4perl;
use YAML::XS qw(LoadFile);

use Turnip;

Turnip->Initialize("etc/config.yaml");

my @instances = Turnip->list;
say "Foud ", scalar(@instances), " instances";

say " - $_" foreach @instances;

if ( Turnip->hasCurrentTarget ) {
    say "Current target: ", Turnip->currentTargetLink;

    my $current = Turnip->currentTarget;

    say $current->DumpAsString();

    say $_->DumpAsString for $current->services;
}
else {
    say "No current target specified";
}

1;
