File Coverage

blib/lib/WebService/Bitly/Result/Validate.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	25	27	92.5

package WebService::Bitly::Result::Validate;

use warnings;
use strict;
use Carp;

use base qw(WebService::Bitly::Result);

sub new {
    my ($class, $result_validate) = @_;
    my $self = $class->SUPER::new($result_validate);
}

sub is_valid {
    my $self = shift;
    return 0 if $self->is_error;
    return $self->data->{valid};
}

1;