File Coverage

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

Criterion	Covered	Total	%
statement	15	16	93.7
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	1	3	33.3
total	22	26	84.6

package WebService::Bitly::Result::BitlyProDomain;

use warnings;
use strict;
use Carp;

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

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

sub is_pro_domain {
    return shift->data->{bitly_pro_domain};
}

sub domain {
    return shift->data->{domain};
}

1;