|
|
|
@ -8,6 +8,7 @@ use base 'Exporter';
|
|
|
|
|
our @EXPORT_OK = qw( |
|
|
|
|
chomp_all strip_bom trim |
|
|
|
|
make_timing parse_timing |
|
|
|
|
round |
|
|
|
|
); |
|
|
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( |
|
|
|
@ -15,7 +16,6 @@ our %EXPORT_TAGS = (
|
|
|
|
|
timing => [qw(make_timing parse_timing)], |
|
|
|
|
); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
## string sunctions |
|
|
|
|
|
|
|
|
|
sub chomp_all { |
|
|
|
@ -75,6 +75,13 @@ sub parse_timing {
|
|
|
|
|
return $time; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
## misc |
|
|
|
|
|
|
|
|
|
sub round { |
|
|
|
|
my ($value, $n) = @_; |
|
|
|
|
return sprintf "%.${n}f", $value; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
1; |
|
|
|
|
|
|
|
|
|
=pod |
|
|
|
@ -127,4 +134,13 @@ Takes string like "HH:MM:SS.MSEC" and returns float number of seconds
|
|
|
|
|
|
|
|
|
|
On parse error returns -1 |
|
|
|
|
|
|
|
|
|
=head1 FUNCTIONS / MISC |
|
|
|
|
|
|
|
|
|
=head2 C<round> |
|
|
|
|
|
|
|
|
|
say round(3.6, 0); # 4 |
|
|
|
|
say round(3.6, 1); # 4.1 |
|
|
|
|
|
|
|
|
|
Self-descriptive |
|
|
|
|
|
|
|
|
|
=cut |
|
|
|
|