lemonldap-ng/e2e-tests/custom.pm

18 lines
247 B
Perl
Raw Normal View History

2016-02-28 12:51:35 +01:00
package My;
sub hello {
return 'Hello';
}
sub get_additional_arg {
2017-03-29 12:01:11 +02:00
return $_[0];
2016-02-28 12:51:35 +01:00
}
2020-11-12 13:43:41 +01:00
sub accessToTrace {
my $hash = shift;
return
"$hash->{custom} alias $hash->{params}->[0] $hash->{params}->[1]:$hash->{session}->{groups}";
}
2016-02-28 12:51:35 +01:00
1;