This file is indexed.

/usr/share/doc/libperl-critic-perl/examples/ppidump is in libperl-critic-perl 1.117-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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#!/usr/bin/env perl

use strict;
use warnings;

use PPI::Document;
use PPI::Dumper;

our $VERSION = '1.116';

my $whitespace = $ARGV[0] && $ARGV[0] eq '-w' ? shift : 0;
my $code = $ARGV[0] ? (-f $ARGV[0] ? shift : \shift) : \join q{}, <STDIN>;
my $doc  = PPI::Document->new( $code )
    or die 'Could not parse code: ', PPI::Document::errstr(), "\n";
my $dump = PPI::Dumper->new( $doc, whitespace => $whitespace, locations => 1 );
$dump->print();

__END__

#-----------------------------------------------------------------------------

=pod

=head1 NAME

ppidump - Dump Perl code as PPI structure.

=head1 SYNOPSIS

  ppidump                     #Read from STDIN
  ppidump MyModule.pm         #Read code from file
  ppidump 'my $foo = $bar;'   #Read code as from string
  ppidump -w 'foo( );'        #Show whitespace tokens

=head1 DESCRIPTION

This is a simple tool for helping to develop Perl::Critic::Policy
modules.  If you want to see how L<PPI|PPI> would parse a snippet of
code, just feed it to C<ppidump>.

By default, whitespace tokens are hidden.  Use the C<-w> flag to show
them.

=head1 AUTHOR

Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>

=head1 COPYRIGHT

Copyright (c) 2005-2011 Imaginative Software Systems.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.  The full text of this license
can be found in the LICENSE file included with this module.

=cut

##############################################################################
# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
#   indent-tabs-mode: nil
#   c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :