| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 3 | ahitrov@rambler.ru | <%args> |
| 2 | $name => undef | ||
| 3 | $SETS => undef | ||
| 4 | </%args> | ||
| 5 | <%init> | ||
| 6 | return undef unless ref $SETS; | ||
| 7 | return undef unless $name; | ||
| 8 | return undef unless $SETS->{$name.'_hour'} =~ /^\d+$/; | ||
| 9 | return undef unless $SETS->{$name.'_minute'} =~ /^\d+$/; | ||
| 10 | return undef unless $SETS->{$name.'_second'} =~ /^\d*$/; | ||
| 11 | |||
| 12 | return sprintf '%02d:%02d:%02d', $SETS->{$name.'_hour'}, $SETS->{$name.'_minute'}, $SETS->{$name.'_second'} || 0; | ||
| 13 | </%init> |