| … | … | ||
|---|---|---|---|
| 269 | 269 | ||
| 270 | =cut | 270 | =cut |
| 271 | 271 | ||
| 272 | package common::sense; | 272 | package common::sense; |
| 273 | 273 | ||
| 274 | our $VERSION = '3.4'; | 274 | our $VERSION = '3.5'; |
| 275 | 275 | ||
| 276 | # overload should be included | 276 | # overload should be included |
| 277 | 277 | ||
| 278 | sub import { | 278 | sub import { |
| 279 | local $^W; # work around perl 5.16 spewing out warnings for next line | ||
| 279 | IMPORT | 280 | IMPORT |
| 280 | # use feature | 281 | # use feature |
| 281 | $^H{feature_switch} = | 282 | $^H{feature_switch} = |
| 282 | $^H{feature_say} = | 283 | $^H{feature_say} = |
| 283 | $^H{feature_state} = 1; | 284 | $^H{feature_state} = 1; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |