File Coverage

blib/lib/WebService/HIBP/Breach.pm

Criterion	Covered	Total	%
statement	20	47	42.5
branch	4	6	66.6
condition			n/a
subroutine	6	18	33.3
pod	16	16	100.0
total	46	87	52.8

package WebService::HIBP::Breach;

use strict;
use warnings;

our $VERSION = '0.15';

sub new {
    my ( $class, %parameters ) = @_;
    my $self = bless {}, $class;
    foreach my $key ( sort { $a cmp $b } keys %parameters ) {
        if ( $key =~ /^Is/smx ) {
            $self->{$key} = $parameters{$key} ? 1 : 0;
        }
        else {
            $self->{$key} = $parameters{$key};
        }
    }
    return $self;
}

sub name {
    my ($self) = @_;
    return $self->{Name};
}

sub title {
    my ($self) = @_;
    return $self->{Title};
}

sub domain {
    my ($self) = @_;
    return $self->{Domain};
}

sub description {
    my ($self) = @_;
    return $self->{Description};
}

sub breach_date {
    my ($self) = @_;
    return $self->{BreachDate};
}

sub modified_date {
    my ($self) = @_;
    return $self->{ModifiedDate};
}

sub is_retired {
    my ($self) = @_;
    return $self->{IsRetired};
}

sub is_sensitive {
    my ($self) = @_;
    return $self->{IsSensitive};
}

sub is_verified {
    my ($self) = @_;
    return $self->{IsVerified};
}

sub is_spam_list {
    my ($self) = @_;
    return $self->{IsSpamList};
}

sub is_fabricated {
    my ($self) = @_;
    return $self->{IsFabricated};
}

sub pwn_count {
    my ($self) = @_;
    return $self->{PwnCount};
}

sub added_date {
    my ($self) = @_;
    return $self->{AddedDate};
}

sub data_classes {
    my ($self) = @_;
    if ( defined $self->{DataClasses} ) {
        return @{ $self->{DataClasses} };
    }
    else {
        return ();
    }
}

sub logo_path {
    my ($self) = @_;
    return $self->{LogoPath};
}

1;    # End of WebService::HIBP::Breach
__END__