2018-07-04 17:42:37 +02:00
|
|
|
package t::pdata;
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use Mouse;
|
|
|
|
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK);
|
|
|
|
|
|
|
|
extends 'Lemonldap::NG::Portal::Main::Plugin';
|
|
|
|
|
2018-07-05 23:00:40 +02:00
|
|
|
sub init { 1 }
|
2018-07-04 17:42:37 +02:00
|
|
|
|
|
|
|
use constant beforeAuth => 'insert';
|
|
|
|
|
|
|
|
sub insert {
|
2018-07-05 23:00:40 +02:00
|
|
|
my ( $self, $req ) = @_;
|
2018-07-04 17:42:37 +02:00
|
|
|
$req->pdata->{mytest} ||= 0;
|
|
|
|
$req->pdata->{mytest}++;
|
|
|
|
return PE_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|