| line |
l |
!l&&r |
!l&&!r |
condition |
|
27
|
0 |
0 |
0 |
$$self{'__charset'} ||= do {
my $charset;
if ($self->header('Content-Type') =~ /charset=([\w\-]+)/io) {
$charset = $1;
} ;
$charset ||= ($self->content =~ /<\?xml version="1.0" encoding="([\w\-]+)"\?>/)[0];
$charset ||= ($self->content =~ /content);
$charset ||= 'cp932';
$charset
} |
|
32
|
0 |
0 |
0 |
$charset ||= ($self->content =~ /<\?xml version="1.0" encoding="([\w\-]+)"\?>/)[0] |
|
33
|
0 |
0 |
0 |
$charset ||= ($self->content =~ /
|
|
34
|
0 |
0 |
0 |
$charset ||= &$Detector($self->content) |