29 |
$value =~ s/ m[VW]h*$//; |
$value =~ s/ m[VW]h*$//; |
30 |
$h->{$key} = $value; |
$h->{$key} = $value; |
31 |
} |
} |
32 |
warn dump( $h ) if ( $debug ); |
warn "$f ",dump( $h ) if ( $debug ); |
33 |
return $h; |
return $h; |
34 |
} |
} |
35 |
|
|
74 |
my $pcnt = $state->{'remaining capacity'} / $info->{'design capacity'}; |
my $pcnt = $state->{'remaining capacity'} / $info->{'design capacity'}; |
75 |
|
|
76 |
my $time = $state->{'remaining capacity'} / ( $state->{'present rate'} ); |
my $time = $state->{'remaining capacity'} / ( $state->{'present rate'} ); |
77 |
|
$time = ( $info->{'design capacity'} - $state->{'remaining capacity'} ) / $state->{'present rate'} if ( $state->{'charging state'} eq 'charging' ); |
78 |
|
|
79 |
warn "time = $time\n" if ($debug); |
warn "time = $time\n" if ($debug); |
80 |
|
|