File Coverage

blib/lib/NetSDS/Const.pm
Criterion Covered Total %
statement 54 54 100.0
branch n/a
condition n/a
subroutine 18 18 100.0
pod n/a
total 72 72 100.0


line stmt bran cond sub pod time code
1             #===============================================================================
2             #
3             # FILE: Const.pm
4             #
5             # DESCRIPTION: NetSDS common constants
6             #
7             # AUTHOR: Michael Bochkaryov (Rattler),
8             # COMPANY: Net.Style
9             # CREATED: 05.05.2008 16:40:51 EEST
10             #===============================================================================
11              
12             =head1 NAME
13              
14             NetSDS::Const - common NetSDS constants
15              
16             =head1 SYNOPSIS
17              
18             use NetSDS::Const;
19              
20             print "XML encoding is " . XML_ENCODING;
21              
22             print "Week contains " . INTERVAL_WEEK . " seconds";
23              
24             =head1 DESCRIPTION
25              
26             This module provides most common constants like default encoding and language, time intervals, etc.
27              
28             =cut
29              
30             package NetSDS::Const;
31              
32 2     2   1397 use 5.8.0;
  2         5  
  2         93  
33 2     2   11 use strict;
  2         4  
  2         57  
34 2     2   8 use warnings;
  2         4  
  2         55  
35              
36 2     2   10 use base 'Exporter';
  2         3  
  2         180  
37              
38 2     2   10 use version; our $VERSION = '1.301';
  2         5  
  2         13  
39              
40             our @EXPORT = qw(
41             LANG_BE
42             LANG_DE
43             LANG_EN
44             LANG_RU
45             LANG_UK
46             DEFAULT_ENCODING
47             DEFAULT_LANG
48             XML_VERSION
49             XML_ENCODING
50             INTERVAL_MINUTE
51             INTERVAL_HOUR
52             INTERVAL_DAY
53             INTERVAL_WEEK
54             );
55              
56             =head1 LANGUAGE AND ENCODINGS
57              
58             =over
59              
60             =item B - C
61              
62             =item B - C
63              
64             =item B - C
65              
66             =item B - C
67              
68             =item B - C
69              
70             =item B - C in current version
71              
72             =item B - C
73              
74             =back
75              
76             =cut
77              
78 2     2   247 use constant LANG_BE => 'be';
  2         4  
  2         154  
79 2     2   8 use constant LANG_DE => 'de';
  2         3  
  2         89  
80 2     2   8 use constant LANG_EN => 'en';
  2         8  
  2         71  
81 2     2   14 use constant LANG_RU => 'ru';
  2         3  
  2         65  
82 2     2   7 use constant LANG_UK => 'uk';
  2         4  
  2         116  
83              
84 2     2   9 use constant DEFAULT_LANG => LANG_RU;
  2         3  
  2         69  
85 2     2   9 use constant DEFAULT_ENCODING => 'UTF8';
  2         3  
  2         79  
86              
87             =head1 XML CONSTANTS
88              
89             =over
90              
91             =item B - C<1.0>
92              
93             =item B - C
94              
95             =back
96              
97             =cut
98              
99 2     2   9 use constant XML_VERSION => '1.0';
  2         3  
  2         84  
100 2     2   9 use constant XML_ENCODING => 'UTF-8';
  2         3  
  2         74  
101              
102             =head1 TIME INTERVALS
103              
104             =over
105              
106             =item B - 60 seconds
107              
108             =item B - 3600 seconds
109              
110             =item B - 86400 seconds
111              
112             =item B - 604800 seconds
113              
114             =back
115              
116             =cut
117              
118 2     2   10 use constant INTERVAL_MINUTE => 60;
  2         3  
  2         77  
119 2     2   8 use constant INTERVAL_HOUR => 3600;
  2         4  
  2         79  
120 2     2   9 use constant INTERVAL_DAY => 86400;
  2         3  
  2         74  
121 2     2   8 use constant INTERVAL_WEEK => 604800;
  2         3  
  2         80  
122              
123             1;
124              
125             __END__