This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
function to parse isolated label
[perl5.git] / ext / XS-APItest / t / labelconst.aux
1 use XS::APItest qw(labelconst);
2 my $z = "";
3 $z .= labelconst FOO:;
4 $z .= labelconst BAR:
5         ;
6 $z .= labelconst BAZ
7         :;
8 $z .= labelconst
9         QUUX:;
10 $z;