|
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 => (
class => 'first' ,
id => 'first-row'
);
row two => (
class => 'second' ,
id => 'second-row' ,
);
row three => (
class => 'third' ,
id => 'third-row' ,
);
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;
|