/usr/share/perl5/CSS/DOM/Rule/Charset.pm is in libcss-dom-perl 0.14-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 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | package CSS::DOM::Rule::Charset;
$VERSION = '0.14';
use warnings; no warnings qw 'utf8 parenthesis';
use strict;
use CSS::DOM::Util 'escape';
use CSS::DOM::Rule;
our @ISA = 'CSS::DOM::Rule';
use constant # Don't let this conflict with the superclass.
cset => 2;
{ no strict 'refs'; delete ${__PACKAGE__.'::'}{cset} }
# overrides:
sub type { CSS::DOM::Rule::CHARSET_RULE }
sub cssText {
my $self = shift;
my $old;
if(defined wantarray) {
$old = "\@charset \""
. escape($self->[cset],'"') ."\";\n";
}
if (@_) {
require CSS::DOM::Parser;
my $new_rule = $self->_parse(shift);
@$self[cset] = @$new_rule[cset];
}
$old;
};
# CSSCharsetRule interface:
sub encoding {
my $old = (my $self = shift)->[cset];
@_ and $$self[cset] = shift;
$old
}
!()__END__()!
=head1 NAME
CSS::DOM::Rule::FontFace - CSS @font-face rule class for CSS::DOM
=head1 VERSION
Version 0.14
=head1 SYNOPSIS
use CSS::DOM;
my $font_face_rule = CSS::DOM->parse(
'@font-face { font-family: "bm"; src: url(blackmoor.ttf) }'
)->cssRules->[0];
$page_rule->style; # a CSS::DOM::Style object
$page_rule->style->src; # 'url(blackmoor.ttf)'
=head1 DESCRIPTION
This module implements CSS @font-face rules for L<CSS::DOM>. It inherits
from
L<CSS::DOM::Rule> and implements
the CSSFontFaceRule DOM interface.
=head1 THE METHOD
=over 4
=item style
Returns the CSS::DOM::Style object representing the declaration block
of this rule.
=back
=head1 SEE ALSO
L<CSS::DOM>
L<CSS::DOM::Style>
L<CSS::DOM::Rule>
|