File Coverage

blib/lib/Net/LDAP/Extension/Cancel.pm

Criterion	Covered	Total	%
statement	3	8	37.5
branch	0	4	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	15	26.6

package Net::LDAP::Extension::Cancel;

require Net::LDAP::Extension;

our @ISA = qw(Net::LDAP::Extension);
our $VERSION = '0.02';

use Convert::ASN1;

my $cancelReq = Convert::ASN1->new;
$cancelReq->prepare(q
                     cancelID    INTEGER	-- originally: MessageID
                    }>);

sub Net::LDAP::cancel {
  my $ldap = shift;
  my $op = shift;
  my %opt = @_;

  my $res = $ldap->extension (
    name => '1.3.6.1.1.8',
    value => $cancelReq->encode({ cancelID => ref($op) ? $op->mesg_id : $op }),
    ($opt{control} ? (control => $opt{control}) : ())
  );

  bless $res;
}

1;

__END__