File Coverage

blib/lib/WWW/Mixi/OO/I18N/UTF8.pm

Criterion	Covered	Total	%
statement	21	51	41.1
branch	0	8	0.0
condition			n/a
subroutine	7	12	58.3
pod	4	4	100.0
total	32	75	42.6

# -*- cperl -*-
# copyright (C) 2005 Topia . all rights reserved.
# This is free software; you can redistribute it and/or modify it
#   under the same terms as Perl itself.
# $Id: UTF8.pm 88 2005-02-04 04:21:19Z topia $
# $URL: file:///usr/minetools/svnroot/mixi/trunk/WWW-Mixi-OO/lib/WWW/Mixi/OO/I18N/UTF8.pm $
package WWW::Mixi::OO::I18N::UTF8;
use strict;
use warnings;
use Carp;
use POSIX;
use base qw(WWW::Mixi::OO::I18N);
use Encode;
use utf8;

sub convert_from_http_content {
    my ($this, $charset, $str) = @_;

    decode($charset, $str);
}

sub convert_to_http_content {
    my ($this, $charset, $str) = @_;

    encode($charset, $str);
}

sub convert_login_time {
    my ($this, $timestr) = @_;
    return undef unless defined $timestr;
    my $time = 0;
    my $add_time = sub { $time += $1; '' };
    $timestr =~ s/(\d+)日/&$add_time/eg;$time *= 24;
    $timestr =~ s/(\d+)時間/&$add_time/eg;$time *= 60;
    $timestr =~ s/(\d+)分/&$add_time/eg;$time *= 60;
    $timestr =~ s/^(\d+)$/&$add_time/eg;
    if ($timestr) {
	croak("Couldn't parse login timestr. junk: $timestr, parsed: $time");
    }
    $timestr = strftime('%Y/%m/%d %H:%M', localtime(time() - $time));
    return wantarray ? ($timestr, $time) : $timestr;
}

sub convert_time {
    my ($this, $timestr) = @_;
    return undef unless defined $timestr;
    $timestr =~ s|(\d+)年(\d+)月(\d+)日|$1/$2/$3|g;
    $timestr =~ s|(\d+)月(\d+)日|$1/$2|g;
    return $timestr;
}

1;