|
caption title => (
class => 'some-class' ,
id => 'caption-id' ,
text => 'table caption' ,
);
header id => (
class => 'some-class' ,
id => 'something-id' ,
);
header name => (
class => 'okay' ,
);
header address => (
class => 'what' ,
);
row one => (
cells => {
alternate_classes => [ qw/first-class second-class/ ],
}
);
sub _data {
my $self = shift ;
return [
{
id => 1,
name => 'rob' ,
address => 'somewhere' ,
},
{
id => 2,
name => 'sam' ,
address => 'somewhere else' ,
},
{
id => 3,
name => 'frank' ,
address => 'out' ,
},
];
}
1;
|