1 package Org::Element::TableRow;
6 extends 'Org::Element';
8 our $VERSION = '0.23'; # VERSION
12 return $self->_str if defined $self->_str;
16 join("|", map {$_->as_string} @{$self->children}),
23 [map {$_->as_string} @{$self->children}];
28 return [] unless $self->children;
31 for my $el (@{$self->children}) {
32 push @$cells, $el if $el->isa('Org::Element::TableCell');
38 # ABSTRACT: Represent Org table row
45 Org::Element::TableRow - Represent Org table row
53 Derived from L<Org::Element>. Must have L<Org::Element::TableCell>
54 instances as its children.
60 =for Pod::Coverage as_string
62 =head2 $table->cells() => ELEMENTS
64 Return the cells of the row.
66 =head2 $table->as_array() => ARRAYREF
68 Return an arrayref containing the cells of the row, each cells already
69 stringified with as_string().
73 Steven Haryanto <stevenharyanto@gmail.com>
75 =head1 COPYRIGHT AND LICENSE
77 This software is copyright (c) 2012 by Steven Haryanto.
79 This is free software; you can redistribute it and/or modify it under
80 the same terms as the Perl 5 programming language system itself.