| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
# $File: //member/autrijus/Encode-compat/lib/Encode/compat.pm $ $Author: autrijus $ |
|
2
|
|
|
|
|
|
|
# $Revision: #7 $ $Change: 10735 $ $DateTime: 2004/06/03 14:08:57 $ |
|
3
|
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
package Encode::compat; |
|
5
|
|
|
|
|
|
|
$Encode::compat::VERSION = '0.07'; |
|
6
|
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
18626
|
use strict; |
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
144
|
|
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
if ($] >= 5.007001 or $INC{'Encode.pm'}) { |
|
10
|
|
|
|
|
|
|
# nothing happens -- Encode.pm already available. |
|
11
|
|
|
|
|
|
|
} |
|
12
|
|
|
|
|
|
|
elsif ($] >= 5.006001 and $] <= 5.007) { |
|
13
|
|
|
|
|
|
|
require Encode::compat::Alias; |
|
14
|
|
|
|
|
|
|
$INC{'Encode/Alias.pm'} = $INC{'Encode/compat/Alias.pm'}; |
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
require Encode::compat::common; |
|
17
|
|
|
|
|
|
|
require Encode::compat::5006001; |
|
18
|
|
|
|
|
|
|
$INC{'Encode.pm'} = __FILE__; |
|
19
|
|
|
|
|
|
|
} |
|
20
|
|
|
|
|
|
|
else { |
|
21
|
|
|
|
|
|
|
die "Encode.pm compatibility layer for $] not yet available."; |
|
22
|
|
|
|
|
|
|
} |
|
23
|
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
1; |
|
25
|
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
__END__ |