1. Name

    Some content

HERE

                  # item-text
                  [{'foo'=>1}, <<'HERE'],
foo

Some content

HERE

                  # item-bullet
                  [{'Hello World' => 1,
                    'Hello'       => 1}, <<'HERE'],
  • Hello World

    Some para content

HERE

                  # head1
                  [{'SYNOPSIS' => 1}, <<'HERE'],
=head1 SYNOPSIS
HERE

                  # head2
                  [{'Other Notes' => 1,
                    'Other'       => 1}, <<'HERE'],
=head2 Other Notes
HERE

                  # head3
                  [{'Yet More Notes' => 1,
                    'Yet'            => 1}, <<'HERE'],
=head3 Yet More Notes
HERE
                 ) {
  my ($want, $str) = @$elem;
  my $parser = App::PodLinkCheck::ParseSections->new;
  $parser->parse_string_document ($str);
  my $got = $parser->sections_hashref;
  diag "keys: ",join(',',sort keys %$got);

  is_deeply ($got, $want, "parse:\n$str");
}

exit 0;