File Coverage

blib/lib/OCBNET/CSS3/Styles/Padding.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             ###################################################################################################
2             # Copyright 2013/2014 by Marcel Greter
3             # This file is part of OCBNET-CSS3 (GPL3)
4             ####################################################################################################
5             package OCBNET::CSS3::Styles::Padding;
6             ####################################################################################################
7             our $VERSION = '0.2.5';
8             ####################################################################################################
9              
10 1     1   4175 use strict;
  1         2  
  1         32  
11 1     1   5 use warnings;
  1         1  
  1         28  
12              
13             ####################################################################################################
14             # import regular expressions
15             ####################################################################################################
16              
17 1     1   6 use OCBNET::CSS3::Regex::Numbers;
  1         2  
  1         230  
18              
19             ####################################################################################################
20             # register longhand properties for padding
21             ####################################################################################################
22              
23             OCBNET::CSS3::Styles::register('padding-top', $re_length, '0');
24             OCBNET::CSS3::Styles::register('padding-left', $re_length, '0');
25             OCBNET::CSS3::Styles::register('padding-right', $re_length, '0');
26             OCBNET::CSS3::Styles::register('padding-bottom', $re_length, '0');
27              
28             ####################################################################################################
29             # register shorthand property for padding
30             ####################################################################################################
31              
32             OCBNET::CSS3::Styles::register('padding',
33             {
34             'ordered' =>
35             # needed in order
36             [
37             # always needed
38             [ 'padding-top' ],
39             # additional optional values
40             # may evaluate to other value
41             [ 'padding-right', 'padding-top'],
42             [ 'padding-bottom', 'padding-top'],
43             [ 'padding-left', 'padding-right']
44             ]
45             });
46              
47             ####################################################################################################
48             ####################################################################################################
49             1;