File Coverage

blib/lib/CSS/Declare.pm
Criterion Covered Total %
statement 54 54 100.0
branch 4 8 50.0
condition 1 2 50.0
subroutine 16 16 100.0
pod 0 1 0.0
total 75 81 92.5


line stmt bran cond sub pod time code
1             package CSS::Declare;
2              
3 1     1   33499 use strict;
  1         3  
  1         24  
4 1     1   6 use warnings;
  1         2  
  1         28  
5              
6 1     1   720 use Syntax::Keyword::Gather;
  1         4893  
  1         10  
7              
8             my $IN_SCOPE = 0;
9              
10             sub import {
11 1 50   1   11 die "Can't import CSS::Declare into a scope when already compiling one that uses it"
12             if $IN_SCOPE;
13 1         3 my ($class, @args) = @_;
14 1 50       4 my $opts = shift(@args) if ref($args[0]) eq 'HASH';
15 1         3 my $target = $class->_find_target(0, $opts);
16 1         4 my $unex = $class->_export_tags_into($target);
17 1         5 $class->_install_unexporter($unex);
18 1         57 $IN_SCOPE = 1;
19             }
20              
21             sub _find_target {
22 1     1   2 my ($class, $extra_levels, $opts) = @_;
23 1 50       5 return $opts->{into} if defined($opts->{into});
24 1   50     7 my $level = ($opts->{into_level} || 1) + $extra_levels;
25 1         5 return (caller($level))[0];
26             }
27              
28             my @properties = qw{
29             accelerator
30             azimuth
31             background
32             background_attachment
33             background_color
34             background_image
35             background_position
36             background_position_x
37             background_position_y
38             background_repeat
39             behavior
40             border
41             border_bottom
42             border_bottom_color
43             border_bottom_style
44             border_bottom_width
45             border_collapse
46             border_color
47             border_left
48             border_left_color
49             border_left_style
50             border_left_width
51             border_right
52             border_right_color
53             border_right_style
54             border_right_width
55             border_spacing
56             border_style
57             border_top
58             border_top_color
59             border_top_style
60             border_top_width
61             border_width
62             bottom
63             caption_side
64             clear
65             clip
66             color
67             content
68             counter_increment
69             counter_reset
70             cue
71             cue_after
72             cue_before
73             cursor
74             direction
75             display
76             elevation
77             empty_cells
78             filter
79             float
80             font
81             font_family
82             font_size
83             font_size_adjust
84             font_stretch
85             font_style
86             font_variant
87             font_weight
88             height
89             ime_mode
90             include_source
91             layer_background_color
92             layer_background_image
93             layout_flow
94             layout_grid
95             layout_grid_char
96             layout_grid_char_spacing
97             layout_grid_line
98             layout_grid_mode
99             layout_grid_type
100             left
101             letter_spacing
102             line_break
103             line_height
104             list_style
105             list_style_image
106             list_style_position
107             list_style_type
108             margin
109             margin_bottom
110             margin_left
111             margin_right
112             margin_top
113             marker_offset
114             marks
115             max_height
116             max_width
117             min_height
118             min_width
119             orphans
120             outline
121             outline_color
122             outline_style
123             outline_width
124             overflow
125             overflow_X
126             overflow_Y
127             padding
128             padding_bottom
129             padding_left
130             padding_right
131             padding_top
132             page
133             page_break_after
134             page_break_before
135             page_break_inside
136             pause
137             pause_after
138             pause_before
139             pitch
140             pitch_range
141             play_during
142             position
143             quotes
144             _replace
145             richness
146             right
147             ruby_align
148             ruby_overhang
149             ruby_position
150             size
151             speak
152             speak_header
153             speak_numeral
154             speak_punctuation
155             speech_rate
156             stress
157             scrollbar_arrow_color
158             scrollbar_base_color
159             scrollbar_dark_shadow_color
160             scrollbar_face_color
161             scrollbar_highlight_color
162             scrollbar_shadow_color
163             scrollbar_3d_light_color
164             scrollbar_track_color
165             table_layout
166             text_align
167             text_align_last
168             text_decoration
169             text_indent
170             text_justify
171             text_overflow
172             text_shadow
173             text_transform
174             text_autospace
175             text_kashida_space
176             text_underline_position
177             top
178             unicode_bidi
179             vertical_align
180             visibility
181             voice_family
182             volume
183             white_space
184             widows
185             width
186             word_break
187             word_spacing
188             word_wrap
189             writing_mode
190             z_index
191             zoom
192             };
193              
194             sub _export_tags_into {
195 1     1   11 my ($class, $into) = @_;
196 1         2 for my $property (@properties) {
197 163         172 my $property_name = $property;
198 163         199 $property_name =~ tr/_/-/;
199 1     1   461 no strict 'refs';
  1         2  
  1         85  
200 163     2   399 *{"$into\::$property"} = sub ($) { return ($property_name => $_[0]) };
  163         1747  
  2         22  
201             }
202             return sub {
203 1     1   2 foreach my $property (@properties) {
204 1     1   4 no strict 'refs';
  1         6  
  1         364  
205 163         156 delete ${"${into}::"}{$property}
  163         520  
206             }
207 1         2 $IN_SCOPE = 0;
208 1         4 };
209             }
210              
211             sub _install_unexporter {
212 1     1   2 my ($class, $unex) = @_;
213 1         2 $^H |= 0x20000; # localize %^H
214 1         12 $^H{'CSS::Declare::Unex'} = bless($unex, 'CSS::Declare::Unex');
215             }
216              
217             sub to_css_string {
218 1     1 0 3 my @css = @_;
219             return join q{ }, gather {
220 1     1   25 while (my ($selector, $declarations) = splice(@css, 0, 2)) {
221 2         35 take "$selector "._generate_declarations($declarations)
222             }
223 1         9 };
224             }
225              
226             sub _generate_declarations {
227 2     2   4 my $declarations = shift;
228              
229             return '{'.join(q{;}, gather {
230 2     2   18 while (my ($property, $value) = splice(@{$declarations}, 0, 2)) {
  4         73  
231 2         10 take "$property:$value"
232             }
233 2         11 }).'}';
234             }
235              
236             package CSS::Declare::Unex;
237              
238 1 50   1   2 sub DESTROY { local $@; eval { $_[0]->(); 1 } || warn "ARGH: $@" }
  1         1  
  1         3  
  1         1570  
239              
240             1;