line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
2
|
|
|
2
|
|
27586
|
use strict; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
69
|
|
2
|
2
|
|
|
2
|
|
11
|
use warnings; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
50
|
|
3
|
2
|
|
|
2
|
|
1109
|
use utf8; |
|
2
|
|
|
|
|
10
|
|
|
2
|
|
|
|
|
13
|
|
4
|
|
|
|
|
|
|
package Acme::LookOfDisapproval; |
5
|
|
|
|
|
|
|
{ |
6
|
|
|
|
|
|
|
$Acme::LookOfDisapproval::VERSION = '0.006'; |
7
|
|
|
|
|
|
|
} |
8
|
|
|
|
|
|
|
# git description: v0.005-6-g478008e |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
BEGIN { |
11
|
2
|
|
|
2
|
|
223
|
$Acme::LookOfDisapproval::AUTHORITY = 'cpan:ETHER'; |
12
|
|
|
|
|
|
|
} |
13
|
|
|
|
|
|
|
# ABSTRACT: send warnings with ಠ_ಠ |
14
|
|
|
|
|
|
|
|
15
|
2
|
|
|
2
|
|
10
|
use Exporter; |
|
2
|
|
|
|
|
2
|
|
|
2
|
|
|
|
|
487
|
|
16
|
|
|
|
|
|
|
our @EXPORT = ('ಠ_ಠ'); |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
sub import |
19
|
|
|
|
|
|
|
{ |
20
|
3
|
|
|
3
|
|
16
|
utf8->import; |
21
|
3
|
|
|
|
|
2290
|
goto &Exporter::import; |
22
|
|
|
|
|
|
|
} |
23
|
|
|
|
|
|
|
|
24
|
2
|
|
|
2
|
0
|
154
|
sub ಠ_ಠ { goto &CORE::warn } |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
__END__ |