… | |
… | |
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 | |
|
|
65 | |
65 | =head1 DESCRIPTION |
66 | =head1 DESCRIPTION |
|
|
67 | |
|
|
68 | “Nothing is more fairly distributed than common sense: no one thinks |
|
|
69 | he needs more of it than he already has.” |
|
|
70 | |
|
|
71 | – René Descartes |
66 | |
72 | |
67 | This module implements some sane defaults for Perl programs, as defined by |
73 | This module implements some sane defaults for Perl programs, as defined by |
68 | two typical (or not so typical - use your common sense) specimens of Perl |
74 | two typical (or not so typical - use your common sense) specimens of Perl |
69 | coders. In fact, after working out details on which warnings and strict |
75 | coders. In fact, after working out details on which warnings and strict |
70 | modes to enable and make fatal, we found that we (and our code written so |
76 | modes to enable and make fatal, we found that we (and our code written so |
… | |
… | |
257 | |
263 | |
258 | =cut |
264 | =cut |
259 | |
265 | |
260 | package common::sense; |
266 | package common::sense; |
261 | |
267 | |
262 | our $VERSION = '3.1'; |
268 | our $VERSION = '3.2'; |
263 | |
269 | |
264 | # overload should be included |
270 | # overload should be included |
265 | |
271 | |
266 | sub import { |
272 | sub import { |
267 | IMPORT |
273 | IMPORT |