File Coverage

blib/lib/Protocol/OTR/Channel.pm

Criterion	Covered	Total	%
statement	13	26	50.0
branch			n/a
condition			n/a
subroutine	5	9	55.5
pod	2	2	100.0
total	20	37	54.0

# ABSTRACT: Off-the-Record communication Channel
package Protocol::OTR::Channel;
BEGIN {
  $Protocol::OTR::Channel::AUTHORITY = 'cpan:AJGB';
}
$Protocol::OTR::Channel::VERSION = '0.04';
use strict;
use warnings;
use Scalar::Util ();
use Protocol::OTR ();

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

    $args->{selected_instag} = Protocol::OTR::INSTAG_BEST();
    $args->{known_sessions} = {};
    $args->{gone_secure} = 0;

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

    return $self;
}

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

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

sub _ev {
    my ($self, $cb_name) = (shift, shift);

    {
        Scalar::Util::weaken(my $this = $self);
        $this->{$cb_name}->($this, @_);
    }
}


1;

__END__