Sophie

Sophie

distrib > Mageia > 7 > armv7hl > media > core-release > by-pkgid > 260b015118ea9da5218badc546874591 > files > 27

perl-Minion-9.90.0-1.mga7.noarch.rpm

% layout 'linkcheck', title => 'Result';
% if (ref $result eq 'ARRAY') {
  <table>
    <tr>
      <th>URL</th>
      <th>Status</th>
    </tr>
    % for my $status (@$result) {
      <tr>
        <td><%= $status->[0] %></td>
        <td><%= $status->[1] %></td>
      </tr>
    % }
  </table>
% }
% elsif (!$result) {
  % content_for header => begin
    <meta http-equiv="refresh" content="3">
  % end
  <p>Waiting for result...</p>
% }
% else {
  %= $result
% }