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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
Description: Update module name in comments and POD.
The relevant parts are the documentation of Spreadsheet::XLSX::Utility2007.
Origin: vendor
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2018-04-18
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=125112
Bug: https://rt.cpan.org/Ticket/Display.html?id=125112
--- a/lib/Spreadsheet/XLSX/Utility2007.pm
+++ b/lib/Spreadsheet/XLSX/Utility2007.pm
@@ -3,7 +3,7 @@
# by Kawai, Takanori (Hippo2000) 2001.2.2
# This Program is ALPHA version.
#==============================================================================
-# Spreadsheet::XLSX::Utility;
+# Spreadsheet::XLSX::Utility2007;
#==============================================================================
package Spreadsheet::XLSX::Utility2007;
use strict;
@@ -548,7 +548,7 @@
}
#------------------------------------------------------------------------------
-# AddComma (for Spreadsheet::XLSX::Utility)
+# AddComma (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
sub AddComma {
my ($sNum) = @_;
@@ -565,7 +565,7 @@
}
#------------------------------------------------------------------------------
-# MakeBun (for Spreadsheet::XLSX::Utility)
+# MakeBun (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
sub MakeBun {
my ($sFmt, $iData, $iFlg) = @_;
@@ -610,7 +610,7 @@
}
#------------------------------------------------------------------------------
-# MakeE (for Spreadsheet::XLSX::Utility)
+# MakeE (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
sub MakeE {
my ($sFmt, $iData) = @_;
@@ -629,7 +629,7 @@
}
#------------------------------------------------------------------------------
-# LeapYear (for Spreadsheet::XLSX::Utility)
+# LeapYear (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
sub LeapYear {
my ($iYear) = @_;
@@ -638,7 +638,7 @@
}
#------------------------------------------------------------------------------
-# LocaltimeExcel (for Spreadsheet::XLSX::Utility)
+# LocaltimeExcel (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
sub LocaltimeExcel {
my ($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iMSec, $flg1904) = @_;
@@ -693,7 +693,7 @@
}
#------------------------------------------------------------------------------
-# ExcelLocaltime (for Spreadsheet::XLSX::Utility)
+# ExcelLocaltime (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
sub ExcelLocaltime {
my ($dObj, $flg1904) = @_;
@@ -759,7 +759,7 @@
}
# -----------------------------------------------------------------------------
-# col2int (for Spreadsheet::XLSX::Utility)
+# col2int (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
# converts a excel row letter into an int for use in an array
sub col2int {
@@ -782,7 +782,7 @@
}
# -----------------------------------------------------------------------------
-# int2col (for Spreadsheet::XLSX::Utility)
+# int2col (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
### int2col
# convert a column number into column letters
@@ -804,7 +804,7 @@
}
# -----------------------------------------------------------------------------
-# sheetRef (for Spreadsheet::XLSX::Utility)
+# sheetRef (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
# -----------------------------------------------------------------------------
### sheetRef
@@ -830,7 +830,7 @@
}
# -----------------------------------------------------------------------------
-# xls2csv (for Spreadsheet::XLSX::Utility)
+# xls2csv (for Spreadsheet::XLSX::Utility2007)
#------------------------------------------------------------------------------
### xls2csv
# convert a chunk of an excel file into csv text chunk
@@ -971,7 +971,7 @@
use strict;
#Declare
- use Spreadsheet::XLSX::Utility qw(ExcelFmt ExcelLocaltime LocaltimeExcel);
+ use Spreadsheet::XLSX::Utility2007 qw(ExcelFmt ExcelLocaltime LocaltimeExcel);
#Convert localtime ->Excel Time
my $iBirth = LocaltimeExcel(11, 10, 12, 23, 2, 64);
@@ -992,7 +992,7 @@
=head1 DESCRIPTION
-Spreadsheet::XLSX::Utility exports utility functions concerned with Excel format setting.
+Spreadsheet::XLSX::Utility2007 exports utility functions concerned with Excel format setting.
ExcelFmt is used by Spreadsheet::XLSX::Fmt2007.pm which is used by Spreadsheet::XLSX.
--- a/lib/Spreadsheet/XLSX/Fmt2007.pm
+++ b/lib/Spreadsheet/XLSX/Fmt2007.pm
@@ -52,7 +52,7 @@
);
#------------------------------------------------------------------------------
-# new (for Spreadsheet::XLSX::FmtDefault)
+# new (for Spreadsheet::XLSX::Fmt2007)
#------------------------------------------------------------------------------
sub new {
my ($sPkg, %hKey) = @_;
@@ -62,7 +62,7 @@
}
#------------------------------------------------------------------------------
-# TextFmt (for Spreadsheet::XLSX::FmtDefault)
+# TextFmt (for Spreadsheet::XLSX::Fmt2007)
#------------------------------------------------------------------------------
sub TextFmt {
my ($oThis, $sTxt, $sCode) = @_;
@@ -71,7 +71,7 @@
}
#------------------------------------------------------------------------------
-# FmtStringDef (for Spreadsheet::XLSX::FmtDefault)
+# FmtStringDef (for Spreadsheet::XLSX::Fmt2007)
#------------------------------------------------------------------------------
sub FmtStringDef {
my ($oThis, $iFmtIdx, $oBook, $rhFmt) = @_;
@@ -85,7 +85,7 @@
}
#------------------------------------------------------------------------------
-# FmtString (for Spreadsheet::XLSX::FmtDefault)
+# FmtString (for Spreadsheet::XLSX::Fmt2007)
#------------------------------------------------------------------------------
sub FmtString {
my ($oThis, $oCell, $oBook) = @_;
@@ -119,7 +119,7 @@
}
#------------------------------------------------------------------------------
-# ValFmt (for Spreadsheet::XLSX::FmtDefault)
+# ValFmt (for Spreadsheet::XLSX::Fmt2007)
#------------------------------------------------------------------------------
sub ValFmt {
my ($oThis, $oCell, $oBook) = @_;
@@ -137,7 +137,7 @@
}
#------------------------------------------------------------------------------
-# ChkType (for Spreadsheet::XLSX::FmtDefault)
+# ChkType (for Spreadsheet::XLSX::Fmt2007)
#------------------------------------------------------------------------------
sub ChkType {
my ($oPkg, $iNumeric, $iFmtIdx) = @_;
|
