File Coverage

blib/lib/App/podman/Parser.pm

Criterion	Covered	Total	%
statement	36	42	85.7
branch			n/a
condition			n/a
subroutine	15	18	83.3
pod			n/a
total	51	60	85.0

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2021 -- [e-mail]

use v5.26;
use utf8;

use Object::Pad 0.41;

package App::podman::Parser 0.01;
role App::podman::Parser;

use String::Tagged;

# This package is empty but provides a bunch of helper classes

class App::podman::Para::Heading {
   has $level :param :reader;
   has $text  :param :reader;

   method type { "head" . $level }
}

class App::podman::Para::Plain {
   has $text :param :reader;

   method type { "plain" }
}

class App::podman::Para::Verbatim {
   has $text :param :reader;

   method type { "verbatim" }
}

class App::podman::Para::List {
   has $listtype :param :reader;
   has $indent   :param :reader;

   has @items; # would love to :reader this
   method items { @items }
   method push_item ( $item ) { push @items, $item; }

   method type { "list-$listtype" }
}

class App::podman::Para::ListItem {
   has $text :param :reader;

   # TODO: Do we remember the list's type?
   method type { "item" }
}

0x55AA;