10 lines
166 B
Perl
10 lines
166 B
Perl
![]() |
package My;
|
||
|
|
||
|
sub accessToTrace {
|
||
|
my $hash = shift;
|
||
|
return
|
||
|
"$hash->{custom} alias $hash->{params}->[0] $hash->{params}->[1]:$hash->{session}->{groups}";
|
||
|
}
|
||
|
|
||
|
1;
|