check xs format

This commit is contained in:
ailin-nemui 2020-04-28 15:34:47 +02:00
commit 66a7cc3c34
5 changed files with 246 additions and 0 deletions

View file

@ -0,0 +1,10 @@
use strict;
use warnings;
my $doc = do { local $/; <> };
$doc =~ s{\}[ \t]*/[*] -xs- [*]/\s*}{}g;
$doc =~ s{^[ \t]*?/[*] =xs= (.*?) [*]/(\s*\{$)?}{$1}gms;
$doc =~ s{^[ \t]*?/[*] clang-format off [*]//[*] =xs= (.*?) [*]/\s?/[*] clang-format on [*]/(\s*\{$)?}{$1}gms;
print $doc;