Line # Revision Author
1 3 ahitrov@rambler.ru <%args>
2 $object => undef
3 $name => undef
4 $SETS => undef
5 </%args>
6 <%init>
7
8 return undef unless ref $SETS;
9 return undef unless $name;
10
11 return undef if $SETS->{$name} eq '';
12 return undef if $SETS->{$name} =~ /\D/;
13 return $SETS->{$name};
14
15 </%init>