% for my $res (@{$transit_fyi}) { % my ($info, $via, $via_arr) = @{$res}; % $via_arr = $via_arr ? $via_arr->strftime('%H:%M') : q{}; % }

%= $info->{line}

%= $via

%= $info->{departure}->strftime('%H:%M') → %= $via_arr % if ($info->{departure_delay}) { %= sprintf('(%+d)', $info->{departure_delay}) % }