File Coverage

blib/lib/Megaport/Internal/_Obj.pm

Criterion	Covered	Total	%
statement	8	18	44.4
branch	0	4	0.0
condition			n/a
subroutine	3	8	37.5
pod	0	2	0.0
total	11	32	34.3

package Megaport::Internal::_Obj;

use 5.10.0;
use strict;
use warnings;

our $AUTOLOAD;

sub new {
  my ($class, %hash) = @_;

  bless \%hash, $class;
}

sub AUTOLOAD {
  my ($self) = @_;
  my $command = $AUTOLOAD;
  $command =~ s/.*://;

  if ($self->can($command)) {
    $self->{$command};
  }
}

sub can {
  my ($self, $field) = @_;

  return sub {
    $self->{$field}
  } if $self->{$field};
}

sub DESTROY { }

1;
__END__