File Coverage

blib/lib/WWW/Lipsum/Chinese.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	3	6	50.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	2	2	100.0
total	50	56	89.2

package WWW::Lipsum::Chinese;
use strict;
use warnings;
use LWP::Simple;
use Encode;
our $VERSION = '0.03';

sub new {
    return bless {};
}

sub generate {
    my ($self) = @_;
    $self->_fetch;
    $self->_to_utf8;
    $self->_parse;
    return $self->{content};
}

sub _fetch {
    my ($self) = @_;
    my $content = get("http://www.richyli.com/tool/loremipsum/")
        or die("Couldn't get lorem ipsum content from richili.com");
    $self->{content} = $content;
    $self->{parsed}  = 0;
}

sub _parse {
    my ($self, $content) = @_;
    $content ||= $self->{content};
    $content =~ s{^.*}{}s;
    $content =~ s{.*$}{}s;
    $content =~ s{}{}sg;
    $self->{parsed} = 1;
    $self->{content} = $content;
    return $content;
}

sub _to_utf8 {
    my $self = shift;
    return unless defined $self->{content};
    if ( Encode::is_utf8($self->{content} )) {
        return $self->{content};
    }
    $self->{content} = Encode::decode("big5", $self->{content});
    return $self->{content}
}

1;

__END__