File Coverage

blib/lib/Protocol/OTR/Account.pm

Criterion	Covered	Total	%
statement	8	10	80.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	12	14	85.7

# ABSTRACT: Off-the-Record Account (private key)
package Protocol::OTR::Account;
BEGIN {
  $Protocol::OTR::Account::AUTHORITY = 'cpan:AJGB';
}
$Protocol::OTR::Account::VERSION = '0.04';
use strict;
use warnings;
use Protocol::OTR::Contact ();
use Params::Validate qw(validate validate_pos SCALAR BOOLEAN);

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

    my $m = $find_only ? "_find_account" : "_account";

    $args->{fingerprint} = $otr->$m( $args->{name}, $args->{protocol} );

    return unless $args->{fingerprint};

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

    return $self;
}

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

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

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

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

sub contact {
    my $self = shift;

    my ($name, $fingerprint, $is_verified) = validate_pos(
        @_,
        {
            type => SCALAR,
        },
        {
            type => SCALAR,
            optional => 1,
        },
        {
            type => BOOLEAN,
            optional => 1,
        }
    );

    return Protocol::OTR::Contact->_new(
        $self,
        {
            name => $name,
            fingerprint => $fingerprint,
            is_verified => $is_verified,
        }
    );
}

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

    return map {
        Protocol::OTR::Contact->_new($self, { name => $_ } )
    } @{ $self->_contacts() }
}

1;

__END__