File Coverage

blib/lib/Finance/QuoteTW.pm

Criterion	Covered	Total	%
statement	15	61	24.5
branch	0	32	0.0
condition	0	6	0.0
subroutine	5	18	27.7
pod	4	4	100.0
total	24	121	19.8

package Finance::QuoteTW;
use Spiffy -Base;
use Carp;

#---------------------------------------------------------------------------
#  Variables
#---------------------------------------------------------------------------

use version; our $VERSION = qv('0.09');

my @onshore  = qw/capital iit jpmrich tisc paradigm allianz/;
my @offshore = qw/jpmrich franklin schroders blackrock/;
my @all      = ( @onshore, @offshore );

#---------------------------------------------------------------------------
#  Methods
#---------------------------------------------------------------------------

sub new() {
    my $class = shift;
    my %args  = @_;
    $args{encoding} ||= 'big5';
    return bless \%args, $class;
}

sub names {
    my $type = shift || q{};
    return $type eq 'onshore'  ? @onshore
      : $type    eq 'offshore' ? @offshore
      :                          @all;
}

sub fetch {
    my %args = @_;
    my @all =
        $args{site} =~ /capital/ixm   ? $self->_capital(%args)
      : $args{site} =~ /iit/ixm       ? $self->_iit(%args)
      : $args{site} =~ /jpmrich/ixm   ? $self->_jpmrich(%args)
      : $args{site} =~ /tisc/ixm      ? $self->_tisc(%args)
      : $args{site} =~ /franklin/ixm  ? $self->_franklin(%args)
      : $args{site} =~ /schroders/ixm ? $self->_schroders(%args)
      : $args{site} =~ /blackrock/ixm ? $self->_blackrock(%args)
      : $args{site} =~ /paradigm/ixm  ? $self->_paradigm(%args)
      : $args{site} =~ /allianz/ixm   ? $self->_allianz(%args)
      :                                 croak "Invalid site: $args{site}\n";

    my @result = $args{name} ? grep { $_->{name} =~ $args{name} } @all : @all;
    return wantarray ? @result : \@result;
}

sub fetch_all {
    my $type = shift || q{};
    my @array =
        $type eq 'onshore'  ? @onshore
      : $type eq 'offshore' ? @offshore
      :                       @all;
    my %result =
      map { $_ => [ $self->fetch( site => $_, type => $type ) ] } @array;
    return wantarray ? %result : \%result;
}

sub _allianz {
    require Finance::QuoteTW::Allianz;
    return Finance::QuoteTW::Allianz::fetch( $self, @_ );
}

sub _paradigm {
    require Finance::QuoteTW::Paradigm;
    return Finance::QuoteTW::Paradigm::fetch( $self, @_ );
}

sub _capital {
    require Finance::QuoteTW::Capital;
    return Finance::QuoteTW::Capital::fetch( $self, @_ );
}

sub _iit {
    require Finance::QuoteTW::Iit;
    return Finance::QuoteTW::Iit::fetch( $self, @_ );
}

sub _jpmrich {
    require Finance::QuoteTW::Jpmrich;
    return Finance::QuoteTW::Jpmrich::fetch( $self, @_ );
}

sub _tisc {
    require Finance::QuoteTW::Tisc;
    return Finance::QuoteTW::Tisc::fetch( $self, @_ );
}

sub _franklin {
    require Finance::QuoteTW::Franklin;
    return Finance::QuoteTW::Franklin::fetch( $self, @_ );
}

sub _schroders {
    require Finance::QuoteTW::Schroders;
    return Finance::QuoteTW::Schroders::fetch( $self, @_ );
}

sub _blackrock {
    require Finance::QuoteTW::Blackrock;
    return Finance::QuoteTW::Blackrock::fetch( $self, @_ );
}

__END__