File Coverage

blib/lib/WebService/SendInBlue/Response.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch			n/a
condition			n/a
subroutine	1	6	16.6
pod	0	5	0.0
total	4	24	16.6

package WebService::SendInBlue::Response;
{
  $WebService::SendInBlue::Response::VERSION = '0.005';
}

use strict;

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

  return bless $h, $class;
}

sub code {
  my $self = shift;
  return $self->{'code'};
}

sub message {
  my $self = shift;
  return $self->{'message'};
}

sub data {
  my $self = shift;
  return $self->{'data'};
}

sub is_success {
  my $self = shift;
  $self->code eq 'success';
}

1;