2022-09-24 16:53:04 +00:00
|
|
|
<table class="striped"><tbody>
|
|
|
|
% for my $res (@{$transit_fyi}) {
|
|
|
|
% my ($info, $via, $via_arr) = @{$res};
|
|
|
|
% $via_arr = $via_arr ? $via_arr->strftime('%H:%M') : q{};
|
|
|
|
<tr>
|
|
|
|
<td>
|
|
|
|
%= $info->{line}
|
2022-09-25 15:11:54 +00:00
|
|
|
</td>
|
|
|
|
<td>
|
|
|
|
%= $via
|
|
|
|
</td>
|
|
|
|
<td>
|
2022-09-24 16:53:04 +00:00
|
|
|
%= $info->{departure}->strftime('%H:%M')
|
2022-09-25 15:11:54 +00:00
|
|
|
→
|
|
|
|
%= $via_arr
|
2022-09-24 16:53:04 +00:00
|
|
|
% if ($info->{departure_delay}) {
|
|
|
|
%= sprintf('(%+d)', $info->{departure_delay})
|
|
|
|
% }
|
|
|
|
</td>
|
|
|
|
</tr>
|
|
|
|
% }
|
|
|
|
</tbody></table>
|