view release on metacpan or  search on metacpan

t/24_xhtml.t  view on Meta::CPAN

    },
  },
});
my $table;

# Standard HTML mode
$table = $t->render($d);
report $table, "html1";
is($table, $result{html1}, "html1");

# XHTML mode
$table = $t->render($d, { xhtml => 1 });
report $table, "xhtml1";
is($table, $result{xhtml1}, "xhtml1");

done_testing;

t/30_colgroup.t  view on Meta::CPAN

  labels => 1,
  colgroups => [
    { align => 'center' },
    { align => 'left', span => 2 },
    { align => 'right' },
  ],
});
report $table, "colgroups1";
is($table, $result{colgroups1}, "colgroups1");

# XHTML colgroups
$table = $t->render($d, {
  fields => [ qw(id givenname surname title) ],
  labels => 1,
  xhtml  => 1,
  colgroups => [
    { align => 'center' },
    { align => 'left', span => 2 },
    { align => 'right' },
  ],
});