… | |
… | |
54 | $self->{format} = sub { |
54 | $self->{format} = sub { |
55 | if (!$self->{moves}) { |
55 | if (!$self->{moves}) { |
56 | format_time $_[0] - $low; |
56 | format_time $_[0] - $low; |
57 | } else { |
57 | } else { |
58 | my $time = int($_[0] % $interval) || $interval; |
58 | my $time = int($_[0] % $interval) || $interval; |
59 | sprintf "%s/%d (%d)", |
59 | sprintf "%s/%d {%d}", |
60 | format_time $time, |
60 | format_time $time, |
61 | $self->{moves}, |
61 | $self->{moves}, |
62 | int ($time / ($self->{moves} || 1)); |
62 | int ($time / ($self->{moves} || 1)); |
63 | |
63 | |
64 | } |
64 | } |