| CC: | DREBOLO [...] cpan.org |
| Subject: | Breaks item line into multiple array entries. |
I have a pod like the following:
=item get qr{/(?<class> usr | content | post )/(?<action> delete | find )/(?<id> \d+ )}x
get qr{/(?<class> usr | content | post )/(?<action> delete | find )/(?<id> \d+ )}x
=cut
and I get this from Pod::Simple::SimpleTree:
[
"item-text",
{
'start_line' => 69,
'~type' => "text"
},
"get qr{/(?<class",
">",
" usr | content | post )/(?<action",
">",
" delete | find )/(?<id",
">",
" \d+ )}x"
]
It breaks my item line into multiple array entries because of ">", if I remove ">" works fine.
I run podchecker on that file and it reports no problems and perldoc also shows the file as it should.
I attached source pod file for you debug.
Thank you
| Subject: | TestPod.pm |
package t::lib::TestPod;
use Dancer2;
=head1 NAME
TestPod
=head2 ROUTES
=over
=cut
=item get "/in_testpod"
testpod
=cut
get '/in_testpod' => sub {
return 'get in_testpod';
};
get '/hello' => sub {
return "splat";
};
=item post '/in_testpod/*'
post in_testpod
=cut
post '/in_testpod/*' => sub {
return 'post in_testpod';
};
=back
=head2 SPECIALS
=head3 PUBLIC
=over
=item get "/me:id"
=cut
get "/me:id" => sub {
return "ME";
};
=back
=head3 PRIVAT
=over
=item post "/me:id"
post /me:id
=cut
post "/me:id" => sub {
return "ME";
};
=item get qr{/(?<class> usr | content | post )/(?<action> delete | find )/(?<id> \d+ )}x
get qr{/(?<class> usr | content | post )/(?<action> delete | find )/(?<id> \d+ )}x
=cut
get
qr{/(?<class> usr | content | post )/(?<action> delete | find )/(?<id> \d+ )}x
=> sub {
join(":", sort %{captures()});
};
=back
=cut
1;