line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
2
|
|
|
2
|
|
56083
|
use strict; |
|
2
|
|
|
|
|
8
|
|
|
2
|
|
|
|
|
78
|
|
2
|
2
|
|
|
2
|
|
12
|
use warnings; |
|
2
|
|
|
|
|
2
|
|
|
2
|
|
|
|
|
48
|
|
3
|
2
|
|
|
2
|
|
487
|
use utf8; |
|
2
|
|
|
|
|
13
|
|
|
2
|
|
|
|
|
9
|
|
4
|
|
|
|
|
|
|
package Acme::LookOfDisapproval; # git description: v0.006-39-g517ae12 |
5
|
|
|
|
|
|
|
# vim: set ts=8 sts=4 sw=4 tw=115 et : |
6
|
|
|
|
|
|
|
# ABSTRACT: Send warnings with ಠ_ಠ |
7
|
|
|
|
|
|
|
# KEYWORDS: unicode canary warning utf8 symbol |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
our $VERSION = '0.007'; |
10
|
|
|
|
|
|
|
|
11
|
2
|
|
|
2
|
|
84
|
use Exporter; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
247
|
|
12
|
|
|
|
|
|
|
our @EXPORT = ('ಠ_ಠ'); |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
sub import |
15
|
|
|
|
|
|
|
{ |
16
|
3
|
|
|
3
|
|
11
|
utf8->import; |
17
|
3
|
|
|
|
|
1447
|
goto &Exporter::import; |
18
|
|
|
|
|
|
|
} |
19
|
|
|
|
|
|
|
|
20
|
2
|
|
|
2
|
0
|
10071
|
sub ಠ_ಠ { goto &CORE::warn } |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
__END__ |