File Coverage

blib/lib/Protocol/OTR/Fingerprint.pm

Criterion	Covered	Total	%
statement	7	14	50.0
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	3	3	100.0
total	13	24	54.1

# ABSTRACT: Off-the-Record contact's Fingerprint
package Protocol::OTR::Fingerprint;
BEGIN {
  $Protocol::OTR::Fingerprint::AUTHORITY = 'cpan:AJGB';
}
$Protocol::OTR::Fingerprint::VERSION = '0.04';
use strict;
use warnings;

sub _new {
    my ($class, $cnt, $args) = @_;

    my $self = bless $args, $class;
    $self->{cnt} = $cnt;

    return $self;
}

sub contact {
    return $_[0]->{cnt};
}

sub status {
    return $_[0]->{status};
}

sub is_verified {
    return $_[0]->{is_verified};
}

1;

__END__