File Coverage

blib/lib/WebService/HIBP/Paste.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	6	6	100.0
total	36	36	100.0

package WebService::HIBP::Paste;

use strict;
use warnings;

our $VERSION = '0.12';

sub new {
    my ( $class, %parameters ) = @_;
    my $self = bless {}, $class;
    foreach my $key ( sort { $a cmp $b } keys %parameters ) {
        $self->{$key} = $parameters{$key};
    }
    return $self;
}

sub source {
    my ($self) = @_;
    return $self->{Source};
}

sub id {
    my ($self) = @_;
    return $self->{Id};
}

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

sub date {
    my ($self) = @_;
    return $self->{Date};
}

sub email_count {
    my ($self) = @_;
    return $self->{EmailCount};
}

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