blib/lib/warnings/unused.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 15 | 15 | 100.0 |
branch | 2 | 2 | 100.0 |
condition | n/a | ||
subroutine | 4 | 4 | 100.0 |
pod | n/a | ||
total | 21 | 21 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package warnings::unused; | ||||||
2 | |||||||
3 | 8 | 8 | 335748 | use 5.008_001; | |||
8 | 33 | ||||||
8 | 379 | ||||||
4 | |||||||
5 | 8 | 8 | 46 | use strict; | |||
8 | 16 | ||||||
8 | 421 | ||||||
6 | |||||||
7 | our $VERSION = '0.06'; | ||||||
8 | |||||||
9 | 8 | 8 | 47 | use XSLoader; | |||
8 | 20 | ||||||
8 | 941 | ||||||
10 | XSLoader::load(__PACKAGE__, $VERSION); | ||||||
11 | |||||||
12 | sub import{ | ||||||
13 | 8 | 8 | 74 | shift; | |||
14 | 8 | 100 | 49 | if(@_){ | |||
15 | 2 | 6 | _set_mode(@_); # '-global' or '-lexical' | ||||
16 | } | ||||||
17 | |||||||
18 | 8 | 20 | $^H |= 0x00020000; # HINT_LOCALIZE_HH | ||||
19 | 8 | 187 | $^H{(__PACKAGE__)} = 1; | ||||
20 | |||||||
21 | 8 | 3821 | return; | ||||
22 | } | ||||||
23 | |||||||
24 | 1; | ||||||
25 | __END__ |