This file is indexed.

/usr/share/doc/libpandoc-elements-perl/examples/caps.pl is in libpandoc-elements-perl 0.24-1.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/env perl
use strict;

=head1 DESCRIPTION

Pandoc filter to convert all regular text to uppercase.
Code, link URLs, etc. are not affected.

=cut

use Pandoc::Filter;
use Pandoc::Elements qw(Str);

pandoc_filter Str => sub {
    return Str(uc $_->content);
    # alternatively to modify in-place (comment out previous line to enable)
    $_->content(uc($_->content));
    return
};

=head1 SYNOPSIS

  pandoc --filter caps.pl -o output.html < input.md

=head1 SEE ALSO

This is a port of
L<caps.py|https://github.com/jgm/pandocfilters/blob/master/examples/caps.py>
from Python to Perl with L<Pandoc::Elements> and L<Pandoc::Filter>.

=cut