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

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;