File Coverage

blib/lib/Megaport.pm

Criterion	Covered	Total	%
statement	20	26	76.9
branch	0	2	0.0
condition	0	2	0.0
subroutine	7	8	87.5
pod	0	1	0.0
total	27	39	69.2

package Megaport;

use 5.10.0;
use strict;
use warnings;

our $VERSION = "1.00";

use Carp qw(croak);
use Megaport::Client;
use Megaport::Session;

use Class::Tiny qw(token username password client errstr), {
  uri => sub { $ENV{MEGAPORT_URI} // 'https://api.megaport.com/v2' },
  debug => 0,
  no_verify => 0,

  session => sub { Megaport::Session->new(client => shift->client) }
};

sub BUILD {
  my ($self, $args) = @_;

  $self->client(
    Megaport::Client->new(
      uri => $self->uri,
      no_verify => $self->no_verify,
      debug => $self->debug
    )
  );

  if (!$self->client->login($args)) {
    croak 'Error logging in to Megaport: ' . $self->client->errstr;
  }
}

1;
__END__