This file is indexed.

/usr/share/perl5/CSS/Parse/Heavy.pm is in libcss-perl 1.09-1.

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

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
package CSS::Parse::Heavy;

$VERSION = 1.01;

use CSS::Parse;
@ISA = qw(CSS::Parse);

use strict;
use warnings;

use Carp qw(croak confess);
use Parse::RecDescent;
   $Parse::RecDescent::skip = '';

use CSS::Parse::PRDGrammar;
use CSS::Style;
use CSS::Selector;
use CSS::Property;
use CSS::Adaptor;

use Data::Dumper;


sub parse_string {
	my $self = shift;
	my $source = shift;

	#$::RD_HINT = 1;
	#$::RD_TRACE = 1;
	#$::RD_AUTOACTION = 'use Data::Dumper; print Dumper(@item)."\n";';
	$::RD_AUTOACTION = 'print "token: ".shift @item; print " : @item\n"';

	my $parser = new Parse::RecDescent($CSS::Parse::PRDGrammar::GRAMMAR);
	$self->{parent}->{styles} = $parser->stylesheet($source);
}

1;
__END__

=head1 NAME

CSS::Parse::Heavy - A CSS::Parse module using Parse::RecDescent

=head1 SYNOPSIS

  use CSS;

  # Create a css stylesheet
  my $CSS = CSS->new({'parser' => 'CSS::Parse::Heavy'});

=head1 DESCRIPTION

This module is a parser for CSS.pm. Read the CSS.pm pod for more details

=head1 AUTHORS

Copyright (C) 2001-2002, Allen Day <allenday@ucla.edu>

Copyright (C) 2003-2004, Cal Henderson <cal@iamcal.com>

=head1 SEE ALSO

L<CSS>, http://www.w3.org/TR/REC-CSS1

=cut