File Coverage

blib/lib/LINE/Notify/Simple/Response.pm

Criterion	Covered	Total	%
statement	17	23	73.9
branch	1	4	25.0
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	24	36	66.6

package LINE::Notify::Simple::Response;

use strict;
use warnings;
use utf8;
use feature qw(say);
use parent qw(Class::Accessor);

__PACKAGE__->mk_accessors(qw(status message status_line rate_limit_headers));

sub is_success {

	my $self = shift;
	return $self->status == 200 ? 1 : 0;
}

sub header_field_names {

	my $self = shift;
	my @names;
	if (ref($self->rate_limit_headers) eq "HASH") {
		@names = keys %{$self->rate_limit_headers};
	}
	return @names;
}

1;