| … | |
… | |
| 13 | |
13 | |
| 14 | use utf8; |
14 | use utf8; |
| 15 | use strict qw(subs vars); |
15 | use strict qw(subs vars); |
| 16 | |
16 | |
| 17 | no warnings; |
17 | no warnings; |
| 18 | use warnings qw(FATAL closed threads internal debugging pack substr malloc portable prototype |
18 | use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype |
| 19 | inplace io pipe unpack regexp deprecated exiting glob digit printf |
19 | inplace io pipe unpack regexp deprecated exiting glob digit printf |
| 20 | layer reserved taint closure semicolon); |
20 | layer reserved taint closure semicolon); |
| 21 | no warnings qw(exec newline unopened); |
21 | no warnings qw(exec newline unopened); |
| 22 | |
22 | |
| 23 | BEGIN { |
23 | BEGIN { |
| … | |
… | |
| 54 | # |
54 | # |
| 55 | # use utf8; |
55 | # use utf8; |
| 56 | # use strict qw(vars subs); |
56 | # use strict qw(vars subs); |
| 57 | # use feature qw(say state switch); |
57 | # use feature qw(say state switch); |
| 58 | # no warnings; |
58 | # no warnings; |
| 59 | # use warnings qw(FATAL closed threads internal debugging pack substr malloc |
59 | # use warnings qw(FATAL closed threads internal debugging pack malloc |
| 60 | # portable prototype inplace io pipe unpack regexp |
60 | # portable prototype inplace io pipe unpack regexp |
| 61 | # deprecated exiting glob digit printf layer |
61 | # deprecated exiting glob digit printf layer |
| 62 | # reserved taint closure semicolon); |
62 | # reserved taint closure semicolon); |
| 63 | # no warnings qw(exec newline unopened); |
63 | # no warnings qw(exec newline unopened); |
| 64 | |
64 | |
| … | |
… | |
| 257 | |
257 | |
| 258 | =cut |
258 | =cut |
| 259 | |
259 | |
| 260 | package common::sense; |
260 | package common::sense; |
| 261 | |
261 | |
| 262 | our $VERSION = '3.1'; |
262 | our $VERSION = '3.2'; |
| 263 | |
263 | |
| 264 | # overload should be included |
264 | # overload should be included |
| 265 | |
265 | |
| 266 | sub import { |
266 | sub import { |
| 267 | IMPORT |
267 | IMPORT |
