File Coverage

blib/lib/Finance/SE/OMX.pm

Criterion	Covered	Total	%
statement	29	85	34.1
branch	4	40	10.0
condition	1	5	20.0
subroutine	7	9	77.7
pod	3	4	75.0
total	44	143	30.7

package Finance::SE::OMX;
use strict;
use warnings;
our $VERSION = "1.00";

eval "use LWP::Simple";
if ($@) {
    die "This module needs LWP::Simple to function properly, or at all.";
}

eval "use 5.6.0";
if ($@) {
    warn "This module isn't tested for versions of Perl below 5.6.0\n".
	"Consider updating your Perl distribution\n";
}
use LWP::Simple;



sub new {
    my $inv = shift;
    my $class = ref($inv) || $inv;
    my $self = {
	@_
    };
    return bless $self, $class;
}

sub get_data_short {
    my $self = shift;
    my $stockname = shift or die "no stockame supplied";
    my $stockdata = get "http://www.se.omxgroup.com/stocklist.aspx?srch=$stockname&serch=true&list=all";
    my @list;

    die "couldn't fetch data from server" unless defined $stockdata;
    if ($stockdata =~ /
	 @list = $self->stocklist_parse($1);
	 return undef unless @list;
    }
    else {
	return undef;
    }
    if ($list[11] !~ /$stockname/i) {
	return undef;
    }
    return @list;
}

sub stocklist_parse {
    shift;
    my $table = shift || die "no table sent to table-parser";
    my @tds =();
    my @retarr;
    my $shortname;
    if ($table =~ /
	$retarr[0] = $1;
	$table = $3;
	if ($2 =~ /(.*?)<\/nobr>/i) {
	    $shortname = $1;
	}
	else {
	    die "Couldn't get shortname";
	}
    }
    else {
	die "couldn't get company name";
    }

    foreach ($table =~ /(.*?)<\/TD>/gsi) {
	push @tds, $_;
    }

    if (scalar(@tds) != 12) {
	die "wrong number of fields";
    }
    foreach (1 .. 2) {
	if ($tds[$_] =~ /(.*?)<\/FONT>/i) {
	    $retarr[$_] = $1;
	}

	else {
	    $retarr[$_] = $tds[$_]; #Bättre än inget
	}
    }

    foreach (3..7) {
	$retarr[$_] = $tds[$_];
    }

    foreach(8..9) {
	if ($tds[$_] =~ /(.*?)<\/nobr>/i) {
	    $retarr[$_] = $1;
	}
	else {
	    $retarr[$_] = $tds[$_];
	}
    }
    $retarr[10] = $tds[11];
    $retarr[11] = $shortname;
    return @retarr;
}

sub get_stocklist {
    my $self = shift;
    my $stocklist = shift;
    if (!defined($stocklist)) { #can be zero
	die "get_stocklist() needs a list number";
    }
    my $list;
    my (@retlist, @trlist);

    die "get_stocklist() takes numerical list number" unless ($stocklist =~ /^\d+$/);
    if ($stocklist == 0) {
	$list = get "http://www.se.omxgroup.com/stocklist.aspx?list=SSE1&group=Kursnoteringar&listname=A-lista%20samtliga";
    }
    elsif ($stocklist == 1) {
	$list = get "http://www.se.omxgroup.com/stocklist.aspx?list=SSE2&group=Kursnoteringar&listname=A-lista%20mest%20omsatta";
    }
    elsif ($stocklist == 2) {
	$list = get "http://www.se.omxgroup.com/stocklist.aspx?list=SSE3&group=Kursnoteringar&listname=A-lista%20%C3%B6vriga";
    }
    elsif ($stocklist == 3) {
	$list = get "http://www.se.omxgroup.com/stocklist.aspx?list=SSE43&group=Kursnoteringar&listname=O-lista%20samtliga";
    }
    elsif ($stocklist == 4) {
	$list = get "http://www.se.omxgroup.com/stocklist.aspx?list=SSE10&group=Kursnoteringar&listname=O-lista%20mest%20Attract40";
    }
    elsif ($stocklist == 5) {
	$list = get "http://www.se.omxgroup.com/stocklist.aspx?list=SSE42&group=Kursnoteringar&listname=O-lista%20%EF%BF%BDvriga";
    }
    else {
	die "get_stocklist() takes a numerical argument of 0-5";
    }
    if ($list =~ /
	$list = $1;
	foreach ($list =~ /
	    push @trlist, $_;
	}
	pop @trlist; #last
	for(my $i = 0; $i
	    my @tmparr = $self->stocklist_parse($trlist[$i]);
	    if (@tmparr) {
		$retlist[$i] = [@tmparr];
	    }
	    else {
		die "error parsing \$trlist[$i]";
	    }
	}
    }
    return @retlist;
}

1;

__END__