Line # Revision Author
1 8 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 683 ahitrov for ( $SETS->{$name} ) {
12 s/^\s+//;
13 s/\s+$//;
14 }
15 8 ahitrov@rambler.ru return undef if $SETS->{$name} eq '';
16 return undef if $SETS->{$name} =~ /\D/;
17 return $SETS->{$name};
18
19 </%init>