File Coverage

blib/lib/Onyphe.pm

Criterion	Covered	Total	%
statement	21	53	39.6
branch	0	6	0.0
condition	0	21	0.0
subroutine	7	9	77.7
pod	0	2	0.0
total	28	91	30.7

#
# $Id: Onyphe.pm,v 70c24256e451 2025/03/05 16:13:54 gomor $
#
package Onyphe;
use strict;
use warnings;

our $VERSION = '4.19.0';

use experimental qw(signatures);

use base qw(Class::Gomor::Array);

our @AS = qw(verbose config silent);
__PACKAGE__->cgBuildAccessorsScalar(\@AS);
__PACKAGE__->cgBuildIndices;

use Data::Dumper;
use File::Slurp qw(read_file);
use Config::INI::Tiny;

sub version ($self) {
   return "ONYPHE Version: $VERSION";
}

sub init ($self, $file = undef) {
   $file ||= $ENV{HOME}.'/.onyphe.ini';
   if (! -f $file) {
      print STDERR "ERROR: init file not found: $file\n";
      return;
   }

   my $read = read_file($file);
   my $config = Config::INI::Tiny->new->to_hash($read);
   $self->config($config);

   # Default values:
   $config->{''}{api_size} ||= 10;
   $config->{''}{api_maxpage} ||= 1;
   $config->{''}{api_trackquery} ||= 0;
   $config->{''}{api_calculated} ||= 0;
   $config->{''}{api_keepalive} ||= 0;
   $config->{''}{api_endpoint} ||= 'https://www.onyphe.io/api/v2';
   $config->{''}{api_ondemand_endpoint} ||= $config->{''}{api_endpoint};
   $config->{''}{api_asd_endpoint} ||= $config->{''}{api_endpoint};

   if ($self->verbose) {
      for my $k (keys %{$config->{''}}) {
         print STDERR "VERBOSE: config: $k => ".$config->{''}{$k}."\n";
      }
   }

   unless (defined($config->{''}{api_key})) {
      print STDERR "ERROR: config: needs at least api_url setting:\n";
      print STDERR "       api_key = 'XXX'\n";
      return;
   }

   return $self;
}

1;

__END__