File Coverage

blib/lib/Protocol/OTR/Contact.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	24	26	92.3

# ABSTRACT: Off-the-Record Contact
package Protocol::OTR::Contact;
BEGIN {
  $Protocol::OTR::Contact::AUTHORITY = 'cpan:AJGB';
}
$Protocol::OTR::Contact::VERSION = '0.04';
use strict;
use warnings;
use Protocol::OTR ();
use Protocol::OTR::Fingerprint ();
use Protocol::OTR::Channel ();
use Params::Validate qw(validate CODEREF);

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

    $act->_contact( @$args{qw( name fingerprint is_verified )} );

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

    return $self;
}

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

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

sub fingerprints {
    my ($self) = @_;

    return map {
        Protocol::OTR::Fingerprint->_new($self, $_)
    } @{ $self->_fingerprints() }
}

sub active_fingerprint {
    my ($self) = @_;

    if ( my $fprint = $self->_active_fingerprint() ) {
        return Protocol::OTR::Fingerprint->_new($self, $fprint);
    };

    return;
}

sub channel {
    my $self = shift;

    my %args = validate(
        @_,
        {
            policy => {
                optional => 1,
                default => Protocol::OTR::POLICY_OPPORTUNISTIC(),
            },
            max_message_size => {
                optional => 1,
                default => 0,
            },
            on_read => {
                type => CODEREF,
            },
            on_write => {
                type => CODEREF,
            },
            on_gone_secure => {
                optional => 1,
                type => CODEREF,
            },
            on_gone_insecure => {
                optional => 1,
                type => CODEREF,
            },
            on_still_secure => {
                optional => 1,
                type => CODEREF,
            },
            on_unverified_fingerprint => {
                optional => 1,
                type => CODEREF,
            },
            on_symkey => {
                optional => 1,
                type => CODEREF,
            },
            on_timer => {
                optional => 1,
                type => CODEREF,
            },
            on_smp => {
                optional => 1,
                type => CODEREF,
            },
            on_error => {
                optional => 1,
                type => CODEREF,
            },
            on_event => {
                optional => 1,
                type => CODEREF,
            },
            on_smp_event => {
                optional => 1,
                type => CODEREF,
            },
            on_before_encrypt => {
                optional => 1,
                type => CODEREF,
            },
            on_after_decrypt => {
                optional => 1,
                type => CODEREF,
            },
            on_is_contact_logged_in => {
                optional => 1,
                type => CODEREF,
            },
        }
    );

    return Protocol::OTR::Channel->_new($self, \%args);
}

1;

__END__