| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Text::Striphigh; |
|
2
|
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
923
|
use strict; |
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
59
|
|
|
4
|
1
|
|
|
1
|
|
10
|
use vars qw($VERSION @ISA @EXPORT_OK); |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
493
|
|
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
require Exporter; |
|
7
|
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
@ISA = qw(Exporter); |
|
9
|
|
|
|
|
|
|
@EXPORT_OK = qw(striphigh); |
|
10
|
|
|
|
|
|
|
$VERSION = '0.02'; |
|
11
|
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
# this sub is generated -- and this comment line is needed, leave intact! |
|
13
|
|
|
|
|
|
|
sub striphigh ($) { |
|
14
|
2
|
|
|
2
|
0
|
74
|
local($_) = @_; |
|
15
|
|
|
|
|
|
|
|
|
16
|
2
|
50
|
|
|
|
8
|
return undef unless defined $_; |
|
17
|
2
|
50
|
|
|
|
8
|
return "" if $_ eq ""; |
|
18
|
2
|
|
|
|
|
6
|
tr{\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F\xA0\xA1\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF\xB0\xB1\xB2\xB3\xB4\xB5\xB6\xB7\xB8\xB9\xBA\xBB\xBC\xBD\xBE\xBF\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF} |
|
19
|
|
|
|
|
|
|
{\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B\x0C\x0D\x0E\x0F\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F\x20\x21\x63\x23\x78\x59\x7C\x26\x5E\xA9\x61\x3C\x2D\x24\xAE\x5E\x25\x7E\x26\x27\x27\x75\x71\x2D\x2C\x31\x30\x3E\xBC\xBD\xBE\x28\x41\x41\x41\x41\x41\x41\xC6\x43\x45\x45\x45\x45\x49\x49\x49\x49\x42\x4E\x4F\x4F\x4F\x4F\x4F\x78\x30\x55\x55\x55\x55\x59\x70\x42\x61\x61\x61\x61\x61\x61\xE6\x63\x65\x65\x65\x65\x69\x69\x69\x69\x6F\x6E\x6F\x6F\x6F\x6F\x6F\x3A\x30\x75\x75\x75\x75\x79\x62\x79}; |
|
20
|
2
|
|
|
|
|
7
|
s/\xA9/(C)/g; |
|
21
|
2
|
|
|
|
|
6
|
s-\xBC-1/4-g; |
|
22
|
2
|
|
|
|
|
7
|
s-\xBD-1/2-g; |
|
23
|
2
|
|
|
|
|
6
|
s/\xE6/ae/g; |
|
24
|
2
|
|
|
|
|
7
|
s/\xC6/AE/g; |
|
25
|
2
|
|
|
|
|
6
|
s-\xBE-3/4-g; |
|
26
|
2
|
|
|
|
|
5
|
s/\xAE/(R)/g; |
|
27
|
2
|
|
|
|
|
8
|
$_; |
|
28
|
|
|
|
|
|
|
} |
|
29
|
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
# generate ourselves if called as a program -- leave this comment here too! |
|
31
|
|
|
|
|
|
|
if ( !caller ) { |
|
32
|
|
|
|
|
|
|
undef &striphigh; |
|
33
|
|
|
|
|
|
|
eval join("", ); |
|
34
|
|
|
|
|
|
|
die $@ if $@; |
|
35
|
|
|
|
|
|
|
gen_striphigh(); |
|
36
|
|
|
|
|
|
|
} |
|
37
|
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
1; |
|
39
|
|
|
|
|
|
|
__DATA__ |