21 lines
327 B
Perl
21 lines
327 B
Perl
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;
|