| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 3 | 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 | return undef unless $SETS->{$name.'_year'} =~ /^\d+$/; | ||
| 10 | return undef unless $SETS->{$name.'_month'} =~ /^\d+$/; | ||
| 11 | return undef unless $SETS->{$name.'_day'} =~ /^\d+$/; | ||
| 12 | |||
| 13 | return sprintf '%04d-%02d-%02d', $SETS->{$name.'_year'}, $SETS->{$name.'_month'}, $SETS->{$name.'_day'}; | ||
| 14 | </%init> |