File Coverage

blib/lib/Finance/TW/EmergingQuote.pm

Criterion	Covered	Total	%
statement	9	36	25.0
branch	0	14	0.0
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	62	24.1

package Finance::TW::EmergingQuote;
our $VERSION = '0.26';

use strict;
use LWP::Simple ();
use Encode 'from_to';

sub resolve {
    die "not implemented";
}

sub new {
    my ($class, $target) = @_;
    my $self = bless {}, $class;

    $self->resolve($target)
	unless $target =~ /^\d+$/;

    $self->{id} ||= $target;

    return $self;
}

sub get {
    my $self = shift if ref($_[0]) eq __PACKAGE__;
    shift if $_[0] eq __PACKAGE__;
    my $stockno = $self ? $self->{id} : shift;
    my $content = LWP::Simple::get("http://nweb.otc.org.tw/main.htm");
    from_to($content, 'big5', 'utf-8');
    my $result;

    my ($time) = $content =~ m/製表時間 :.*?,([\d:]+)/;

    undef $self->{quote} if $self;

#

    while ($content =~ s{
	my $entrybuf = $1;
	my ($stock_no) = $entrybuf =~ m{"(\d+)"};
	next unless $stock_no == $self->{id};

	@{$result}{qw(id name PAvg BidBuy BidBuyVol BidSell BidSellVol HighPrice LowPrice Avg MatchPrice DQty)} =
	    map {s/,//g; $_} grep { $_ ne ' ' } $entrybuf =~ m/>(?: \s*)?([^<>]+)
	$result->{DQty} /= 1000;
	$result->{time} = $time;
    }

    $self->{quote} = $result if $self;

    return $result;
}


1;

=head1 NAME

Finance::TW::EmergingQuote - Check stock quotes from Taiwan Emerging Stock

=head1 SYNOPSIS

    use Finance::TW::EmergingQuote;

    my $quote = Finance::TW::EmergingQuote->new('3481');

    while (1) { print $quote->get->{MatchPrice}.$/; sleep 30 }

=head1 DESCRIPTION

This module provides interface to Emerging Stock price information
available from Taiwan's OTC(over-the-counter market). You could get
the real time quote.

=head1 CLASS METHODS

=over 4

=item new

    Create a stock quote object. Resolve the name to symbol
    if the argument is not a symbol.

=item resolve

    Resolve the company name to stock symbol.

=item get

    Get the real time stock information.
    Return a hash containing stock information. The keys are:

=over 4

=item DQty

    current volume

=item MatchPrice

    current price

=item HighPrice

    daily high

=item LowPrice

    daily low

=back

=back

=head1 AUTHORS

Chia-liang Kao [e-mail]

=head1 COPYRIGHT

Copyright 2006 by Chia-liang Kao [e-mail].

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L

=cut