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