… | |
… | |
24 | =cut |
24 | =cut |
25 | |
25 | |
26 | package Convert::Scalar; |
26 | package Convert::Scalar; |
27 | |
27 | |
28 | BEGIN { |
28 | BEGIN { |
29 | $VERSION = '1.04'; |
29 | $VERSION = '1.1'; |
30 | @ISA = qw(Exporter); |
30 | @ISA = qw(Exporter); |
31 | @EXPORT_OK = qw(weaken unmagic grow); |
31 | @EXPORT_OK = qw(readonly readonly_on readonly_off weaken unmagic len grow extend); |
32 | %EXPORT_TAGS = ( |
32 | %EXPORT_TAGS = ( |
33 | taint => [qw(taint untaint tainted)], |
33 | taint => [qw(taint untaint tainted)], |
34 | utf8 => [qw(utf8 utf8_on utf8_off utf8_valid utf8_upgrade utf8_downgrade utf8_encode utf8_decode utf8_length)], |
34 | utf8 => [qw(utf8 utf8_on utf8_off utf8_valid utf8_upgrade utf8_downgrade utf8_encode utf8_decode utf8_length)], |
35 | refcnt => [qw(refcnt refcnt_inc refcnt_dec refcnt_rv refcnt_inc_rv refcnt_dec_rv)], |
35 | refcnt => [qw(refcnt refcnt_inc refcnt_dec refcnt_rv refcnt_inc_rv refcnt_dec_rv)], |
36 | ok => [qw(ok uok rok pok nok niok)], |
36 | ok => [qw(ok uok rok pok nok niok)], |
… | |
… | |
94 | |
94 | |
95 | Returns the number of characters in the string, counting wide UTF8 |
95 | Returns the number of characters in the string, counting wide UTF8 |
96 | characters as a single character, independent of wether the scalar is |
96 | characters as a single character, independent of wether the scalar is |
97 | marked as containing bytes or mulitbyte characters. |
97 | marked as containing bytes or mulitbyte characters. |
98 | |
98 | |
|
|
99 | =item $old = readonly scalar[, $new] |
|
|
100 | |
|
|
101 | Returns whether the scalar is currently readonly, and sets or clears the |
|
|
102 | readonly status if a new status is given. |
|
|
103 | |
|
|
104 | =item readonly_on scalar |
|
|
105 | |
|
|
106 | Sets the readonly flag on the scalar. |
|
|
107 | |
|
|
108 | =item readonly_off scalar |
|
|
109 | |
|
|
110 | Clears the readonly flag on the scalar. |
|
|
111 | |
99 | =item unmagic scalar, type |
112 | =item unmagic scalar, type |
100 | |
113 | |
101 | Remove the specified magic from the scalar (DANGEROUS!). |
114 | Remove the specified magic from the scalar (DANGEROUS!). |
102 | |
115 | |
103 | =item weaken scalar |
116 | =item weaken scalar |
… | |
… | |
114 | |
127 | |
115 | =item untaint scalar |
128 | =item untaint scalar |
116 | |
129 | |
117 | Remove the tainted flag from the specified scalar. |
130 | Remove the tainted flag from the specified scalar. |
118 | |
131 | |
|
|
132 | =item length = len scalar |
|
|
133 | |
|
|
134 | Returns SvLEN (scalar), that is, the actual number of bytes allocated to |
|
|
135 | the string value, or C<undef>, is the scalar has no string value. |
|
|
136 | |
119 | =item grow scalar, newlen |
137 | =item scalar = grow scalar, newlen |
120 | |
138 | |
121 | Sets the memory area used for the scalar to the given length, if the |
139 | Sets the memory area used for the scalar to the given length, if the |
122 | current length is less than the new value. This does not affect the |
140 | current length is less than the new value. This does not affect the |
123 | contents of the scalar, but is only useful to "pre-allocate" memory space |
141 | contents of the scalar, but is only useful to "pre-allocate" memory space |
124 | if you know the scalar will grow. The return value is the modified scalar |
142 | if you know the scalar will grow. The return value is the modified scalar |
125 | (the scalar is modified in-place). |
143 | (the scalar is modified in-place). |
126 | |
144 | |
|
|
145 | =item scalar = extend scalar, addlen |
|
|
146 | |
|
|
147 | Reserves enough space in the scalar so that addlen bytes can be appended |
|
|
148 | without reallocating it. The actual contents of the scalar will not be |
|
|
149 | affected. The modified scalar will also be returned. |
|
|
150 | |
|
|
151 | This function is meant to make append workloads efficient - if you append |
|
|
152 | a short string to a scalar many times (millions of times), then perl will |
|
|
153 | have to reallocate and copy the scalar basically every time. |
|
|
154 | |
|
|
155 | If you instead use C<extend $scalar, length $shortstring>, then |
|
|
156 | Convert::Scalar will use a "size to next power of two, roughly" algorithm, |
|
|
157 | so as the scalar grows, perl will have to resize and copy it less and less |
|
|
158 | often. |
|
|
159 | |
127 | =item refcnt scalar[, newrefcnt] |
160 | =item refcnt scalar[, newrefcnt] |
128 | |
161 | |
129 | Returns the current reference count of the given scalar and optionally sets it to |
162 | Returns the current reference count of the given scalar and optionally sets it to |
130 | the given reference count. |
163 | the given reference count. |
131 | |
164 | |