+++ /dev/null
-#!/usr/bin/perl
-use t::lib tests => 1;
-use lib 't';
-use SimpleClass;
-
-my $o = SimpleClass->new;
-my $tree = mktree 't/html/table-alt.html';
-
-$tree->table(
- gi_table => 'load_data',
- gi_tr => ['iterate1', 'iterate2'],
- table_data => $o->load_data,
- tr_data => sub {
- my ($self, $data) = @_;
- shift @{$data};
- },
- td_data => sub {
- my ($tr_node, $tr_data) = @_;
- $tr_node->content_handler($_ => $tr_data->{$_}) for qw(name age weight)
- });
-
-isxml $tree, 't/html/table-alt.exp', 'table (alternating)';