This is foo bar baz bat gsdgdsgfsdd EOT

$one = $CLASS->new(
    type => 'H',
    prefix => 'xxx',
    title => 'foo',
    short => 'F',
    description => 'This is foo bar baz bat gsdgdsgfsdd',
);

is($one->pod_docs, <<'    EOT', "Got more complex docs");
=item --foo KEY=VAL1,VAL2,...

This is foo bar baz bat gsdgdsgfsdd

Can be specified multiple times. If the same key is listed multiple times the value lists will be appended together. EOT

$one = $CLASS->new(
    type => 'H',
    prefix => 'xxx',
    title => 'foo',
    alt => ['bar', 'baz'],
    short => 'F',
    description => 'This is foo bar baz bat gsdgdsgfsdd',
    long_examples => [' KEY=VALX,VALY,...', '=KEY=VALX,VALY,...'],
    short_examples => [' KEY=VALX,VALY,...', '=KEY=VALX,VALY,...'],
);

is($one->pod_docs, <<'    EOT', "Got more complex docs with custom examples");
=item --foo KEY=VALX,VALY,...

This is foo bar baz bat gsdgdsgfsdd

Can be specified multiple times. If the same key is listed multiple times the value lists will be appended together. EOT };

done_testing;