File Coverage

blib/lib/Net/LDAP/Control/Assertion.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	12	0.0
condition	0	5	0.0
subroutine	4	7	57.1
pod	3	3	100.0
total	19	56	33.9

# Copyright (c) 2011 Peter Marschall . All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Net::LDAP::Control::Assertion;

use Net::LDAP::Control;

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

use Net::LDAP::Filter;
use Net::LDAP::ASN qw(Filter);
use strict;

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

  delete $self->{asn};

  unless (exists $self->{value}) {
    $self->{asn} = $self->{assertion} || '';
  }

  $self;
}

sub assertion {
  my $self = shift;

  if (@_) {
    delete $self->{value};
    return $self->{asn} = shift;
  }
  elsif (exists $self->{value}) {
    my $f = $Filter->decode($self->{value});
    $self->{asn} ||= Net::LDAP::Filter::as_string($f)
      if (ref $f);
  }

  $self->{asn};
}

sub value {
  my $self = shift;

  unless (exists $self->{value}) {
    my $f = Net::LDAP::Filter->new;
    $self->{value} = $Filter->encode($f)
      if ($f->parse($self->{asn}));
  }

  $self->{value};
}

1;


__END__