lemonldap-ng/lemonldap-ng-portal/t/pdata.pm

21 lines
321 B
Perl
Raw Normal View History

package t::pdata;
use strict;
use Mouse;
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK);
extends 'Lemonldap::NG::Portal::Main::Plugin';
sub init {1}
use constant beforeAuth => 'insert';
sub insert {
my($self,$req) = @_;
$req->pdata->{mytest} ||= 0;
$req->pdata->{mytest}++;
return PE_OK;
}
1;