File Coverage

blib/lib/Net/Payjp/Object.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	16	17	94.1

package Net::Payjp::Object;

use strict;
use warnings;

sub new{
  my $self = shift;
  my %p = @_;

  bless{%p}, $self;
}

our $AUTOLOAD;
sub AUTOLOAD {
  my $self = shift;

  my ($key) = $AUTOLOAD =~ /([^:]*$)/;
  return $self->{$key};
}


1;