Time::Beat 1.21

Time::Beat is a Perl module to convert between standard time and Swatch ".beat" time.

Time::Beat is a module to convert normal time to and from .beats, of which there are a thousand in a day. It can change normal time in time() format to .beats, and .beats into either 24-hour or 12-hour normal time.

SYNOPSIS

use Time::Beat qw(beat time24 time12);

my $time_in_beats = beats($time);

my $beats_in_24hr_time = time24($beat);

my $beats_in_12hr_time = time12($beat);

METHODS

There are three methods in Time::Beat.

beats($time)

beats will give you the current time in .beats if you do not specify a time string. If you specify a string in time() format it will return that particular time in .beats. The basic algorithm for doing this is to take the time in GMT+1 hour, convert it into seconds, and divide by 86.4.

time24($beat)

time24 takes a 3-digit beat time and outputs a 24-hour time along the lines of "12:34:56". The hours will have leading noughts.

time12($beat)

time12 takes a 3-digit beat time and outputs a 12-hour time along the lines of "12:34:56 am" or "12:34:56 pm". Hours do not have leading noughts.