File Coverage

blib/lib/Org/Element/TableRow.pm
Criterion Covered Total %
statement 24 24 100.0
branch 3 6 50.0
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 36 39 92.3


line stmt bran cond sub pod time code
1              
2             use 5.010;
3 5     5   1229 use locale;
  5         17  
4 5     5   25 use Moo;
  5         12  
  5         33  
5 5     5   172 extends 'Org::Element';
  5         10  
  5         34  
6              
7             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
8             our $DATE = '2022-06-23'; # DATE
9             our $DIST = 'Org-Parser'; # DIST
10             our $VERSION = '0.558'; # VERSION
11              
12             my ($self) = @_;
13             return $self->_str if defined $self->_str;
14 1     1 1 3  
15 1 50       9 join("",
16             "|",
17             join("|", map {$_->as_string} @{$self->children}),
18             "\n");
19 1         3 }
  3         8  
  1         3  
20              
21             my ($self) = @_;
22              
23             [map {$_->as_string} @{$self->children}];
24 5     5 1 8 }
25              
26 5         7 my ($self) = @_;
  13         21  
  5         11  
27             return [] unless $self->children;
28              
29             my $cells = [];
30 1     1 1 4 for my $el (@{$self->children}) {
31 1 50       4 push @$cells, $el if $el->isa('Org::Element::TableCell');
32             }
33 1         2 $cells;
34 1         2 }
  1         3  
35 3 50       17  
36             1;
37 1         6 # ABSTRACT: Represent Org table row
38              
39              
40             =pod
41              
42             =encoding UTF-8
43              
44             =head1 NAME
45              
46             Org::Element::TableRow - Represent Org table row
47              
48             =head1 VERSION
49              
50             This document describes version 0.558 of Org::Element::TableRow (from Perl distribution Org-Parser), released on 2022-06-23.
51              
52             =head1 DESCRIPTION
53              
54             Derived from L<Org::Element>. Must have L<Org::Element::TableCell>
55             instances as its children.
56              
57             =for Pod::Coverage as_string
58              
59             =head1 ATTRIBUTES
60              
61             =head1 METHODS
62              
63             =head2 $table->cells() => ELEMENTS
64              
65             Return the cells of the row.
66              
67             =head2 $table->as_array() => ARRAY
68              
69             Return an arrayref containing the cells of the row, each cells already
70             stringified with as_string().
71              
72             =head1 HOMEPAGE
73              
74             Please visit the project's homepage at L<https://metacpan.org/release/Org-Parser>.
75              
76             =head1 SOURCE
77              
78             Source repository is at L<https://github.com/perlancar/perl-Org-Parser>.
79              
80             =head1 AUTHOR
81              
82             perlancar <perlancar@cpan.org>
83              
84             =head1 CONTRIBUTING
85              
86              
87             To contribute, you can send patches by email/via RT, or send pull requests on
88             GitHub.
89              
90             Most of the time, you don't need to build the distribution yourself. You can
91             simply modify the code, then test via:
92              
93             % prove -l
94              
95             If you want to build the distribution (e.g. to try to install it locally on your
96             system), you can install L<Dist::Zilla>,
97             L<Dist::Zilla::PluginBundle::Author::PERLANCAR>, and sometimes one or two other
98             Dist::Zilla plugin and/or Pod::Weaver::Plugin. Any additional steps required
99             beyond that are considered a bug and can be reported to me.
100              
101             =head1 COPYRIGHT AND LICENSE
102              
103             This software is copyright (c) 2022, 2021, 2020, 2019, 2017, 2016, 2015, 2014, 2013, 2012, 2011 by perlancar <perlancar@cpan.org>.
104              
105             This is free software; you can redistribute it and/or modify it under
106             the same terms as the Perl 5 programming language system itself.
107              
108             =head1 BUGS
109              
110             Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Org-Parser>
111              
112             When submitting a bug or request, please include a test-file or a
113             patch to an existing test-file that illustrates the bug or desired
114             feature.
115              
116             =cut