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
89
|
package CSS::DOM::Rule::FontFace;
$VERSION = '0.15';
use warnings; no warnings qw 'utf8 parenthesis';
use strict;
use CSS::DOM::Exception qw/ SYNTAX_ERR /;
use CSS::DOM::Rule;
our @ISA = 'CSS::DOM::Rule';
use constant # Don't let this conflict with the superclass.
styl => 2;
{ no strict 'refs'; delete ${__PACKAGE__.'::'}{styl} }
# overrides:
sub type { CSS::DOM::Rule::FONT_FACE_RULE }
sub cssText {
my $self = shift;
my $old;
if(defined wantarray) {
$old = "\@font-face { "
. $self->[styl]->cssText ." }\n";
}
if (@_) {
require CSS::DOM::Parser;
my $new_rule = $self->_parse(shift);
@$self[styl] = @$new_rule[styl];
}
$old;
};
# CSSFontFaceRule interface:
sub style {
$_[0]->[styl] ||= do {
require CSS::DOM::Style;
new CSS::DOM::Style shift
};
}
!()__END__()!
=head1 NAME
CSS::DOM::Rule::FontFace - CSS @font-face rule class for CSS::DOM
=head1 VERSION
Version 0.15
=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>
|
