| 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> |