File Coverage

blib/lib/Finance/SE/Catalog.pm

Criterion	Covered	Total	%
statement	66	66	100.0
branch	23	32	71.8
condition			n/a
subroutine	8	8	100.0
pod	5	5	100.0
total	102	111	91.8

package Finance::SE::Catalog;

our $DATE = '2018-09-19'; # DATE
our $VERSION = '20180919.1.0'; # VERSION

use 5.010001;
use strict;
use warnings;

# BEGIN FRAGMENT id=meta-financial_market
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /zpool_host_mnt/mnt/home/u1/repos/gudangdata/bin/../table/financial_market/meta.yaml
# src-revision: 19df7615c59fa8815c66595ccb9c708dd291b1be (Wed Sep 19 19:58:54 2018 +0700)
# generate-date: Wed Sep 19 12:59:45 2018 UTC
# generated-by: update-fragments-in-perl-module
our $meta = {
  fields => {
    add_codes => {
      pos      => 8,
      schema   => "str*",
      sortable => 1,
      summary  => "Additional codes (each code separated by semicolon)",
      unique   => 0,
    },
    add_names => {
      pos      => 7,
      schema   => "str*",
      sortable => 1,
      summary  => "Additional names (each name separated by semicolon)",
      unique   => 0,
    },
    add_yf_codes => {
      pos      => 4,
      schema   => "str*",
      sortable => 1,
      summary  => "Additional Yahoo! Finance codes (each code separated by semicolon)",
      unique   => 0,
    },
    city => { pos => 10, schema => "str*", sortable => 1, summary => "City", unique => 0 },
    code => {
      pos      => 0,
      schema   => "str*",
      sortable => 1,
      summary  => "Code (usually popular acronym if unique, otherwise MIC)",
      unique   => 1,
    },
    country_code => {
      pos      => 9,
      schema   => "str*",
      sortable => 1,
      summary  => "ISO 2-letter country code",
      unique   => 0,
    },
    eng_name => {
      pos      => 5,
      schema   => "str*",
      sortable => 1,
      summary  => "English name",
      unique   => 1,
    },
    local_name => { pos => 6, schema => "str*", sortable => 1, summary => "Local name", unique => 0 },
    mic => {
      pos      => 1,
      schema   => ["str*", { len => 4 }],
      sortable => 1,
      summary  => "Market Identifier Code (ISO 10383)",
      unique   => 1,
    },
    status => { pos => 12, schema => "str*", sortable => 1, summary => "Status", unique => 0 },
    types => {
      pos      => 2,
      schema   => "str*",
      sortable => 1,
      summary  => "Types (each type separated by semicolon)",
      unique   => 0,
    },
    year_founded => {
      pos      => 11,
      schema   => "str*",
      sortable => 1,
      summary  => "Year founded",
      unique   => 0,
    },
    yf_code => {
      pos      => 3,
      schema   => "str*",
      sortable => 1,
      summary  => "Yahoo! Finance code",
      unique   => 0,
    },
  },
  header => 1,
  pk => "code",
  summary => "Catalog (list) of stock exchanges",
};
# END FRAGMENT id=meta-financial_market

# BEGIN FRAGMENT id=data-financial_market row_as_hash=1
# note: This fragment's content is generated by a script. Do not edit manually!
# src-file: /zpool_host_mnt/mnt/home/u1/repos/gudangdata/bin/../table/financial_market/data.csv
# src-revision: 19df7615c59fa8815c66595ccb9c708dd291b1be (Wed Sep 19 19:58:54 2018 +0700)
# generate-date: Wed Sep 19 12:59:45 2018 UTC
# generated-by: update-fragments-in-perl-module
our $data = [
  {
    add_codes => "",
    add_names => "",
    add_yf_codes => "",
    city => "New York City",
    code => "NYSE",
    country_code => "US",
    eng_name => "New York Stock Exchange",
    local_name => "",
    mic => "XNYS",
    status => "active",
    types => "SE",
    year_founded => 1792,
    yf_code => "",
  },
  {
    add_codes => "",
    add_names => "",
    add_yf_codes => "",
    city => "New York City",
    code => "NASDAQ",
    country_code => "US",
    eng_name => "Nasdaq Stock Exchange",
    local_name => "",
    mic => "XNAS",
    status => "active",
    types => "SE",
    year_founded => 1971,
    yf_code => "",
  },
  {
    add_codes => "BEI;BEJ",
    add_names => "Bursa Efek Jakarta",
    add_yf_codes => "",
    city => "Jakarta",
    code => "IDX",
    country_code => "ID",
    eng_name => "Indonesia Stock Exchange",
    local_name => "Bursa Efek Indonesia",
    mic => "XIDX",
    status => "active",
    types => "SE",
    year_founded => 1912,
    yf_code => "JK",
  },
  {
    add_codes => "",
    add_names => "",
    add_yf_codes => "IL",
    city => "London",
    code => "LSX",
    country_code => "GB",
    eng_name => "London Stock Exchange",
    local_name => "",
    mic => "XLON",
    status => "active",
    types => "SE",
    year_founded => 1698,
    yf_code => "L",
  },
  {
    add_codes => "",
    add_names => "Singapore Stock Exchange;Stock Exchange of Singapore",
    add_yf_codes => "",
    city => "Singapore",
    code => "SGX",
    country_code => "SG",
    eng_name => "Singapore Exchange",
    local_name => "",
    mic => "XSES",
    status => "active",
    types => "SE",
    year_founded => 1973,
    yf_code => "SI",
  },
];
# END FRAGMENT id=data-financial_market

my %code_occurrences;
my %se_by_primary_code;
my %se_by_code;
my %name_occurrences;
my %se_by_primary_name_lc;
my %se_by_name_lc;

sub new {
    my $class = shift;

    unless (keys %code_occurrences) {
        # primary code & name
        for my $rec (@$data) {
            # XXX check uniqueness of primary code & eng_name
            $code_occurrences{$rec->{code}}++;
            $se_by_primary_code{$rec->{code}} = $rec;
            $se_by_code{$rec->{code}} = $rec;
            my $name_lc = lc $rec->{eng_name};
            $name_occurrences{$name_lc}++;
            $se_by_primary_name_lc{$name_lc} = $rec;
            $se_by_name_lc{$name_lc} = $rec;
        }
        for my $rec (@$data) {
            # mic
            for ($rec->{mic}) {
                next if $se_by_primary_code{$_};
                $code_occurrences{$_}++;
                $se_by_code{$_} = $rec;
            }

            # yahoo finance codes
            if (length $rec->{yf_code}) {
                for ($rec->{yf_code}) {
                    next if $se_by_primary_code{$_};
                    $code_occurrences{$_}++;
                    $se_by_code{$_} = $rec;
                }
                if (length $rec->{add_yf_codes}) {
                    for (split /;/, $rec->{add_yf_codes}) {
                        next if $se_by_primary_code{$_};
                        $code_occurrences{$_}++;
                        $se_by_code{$_} = $rec;
                    }
                }
            }

            # additional codes
            if (length $rec->{add_codes}) {
                for (split /;/, $rec->{add_codes}) {
                    next if $se_by_primary_code{$_};
                    $code_occurrences{$_}++;
                    $se_by_code{$_} = $rec;
                }
            }

            # local name
            if (length $rec->{local_name}) {
                for (lc $rec->{local_name}) {
                    next if $se_by_primary_name_lc{$_};
                    $name_occurrences{$_}++;
                    $se_by_name_lc{$_} = $rec;
                }
            }

            # additional names
            if (length $rec->{add_names}) {
                for (split /;/, lc $rec->{add_names}) {
                    next if $se_by_primary_name_lc{$_};
                    $name_occurrences{$_}++;
                    $se_by_name_lc{$_} = $rec;
                }
            }
        }

    }
    bless {}, $class;
}

sub by_code {
    my ($self, $code) = @_;
    $code = uc($code);
    die "Can't find stock exchange with code '$code'"
        unless my $rec = $se_by_code{$code};
    die "Ambiguous stock exchange code '$code' (refers to multiple exchanges)"
        unless $code_occurrences{$code} == 1;
    $rec;
}

sub by_name {
    my ($self, $name) = @_;
    $name = lc $name;
    die "Can't find stock exchange with name '$name'"
        unless my $rec = $se_by_name_lc{$name};
    die "Ambiguous stock exchange name '$name' (refers to multiple exchanges)"
        unless $name_occurrences{$name} == 1;
    $rec;
}

sub all_codes {
    my $self = shift;
    my @res;
    for (@$data) {
        push @res, $_->{code};
    }
    @res;
}

sub all_data {
    my $self = shift;
    @$data;
}

1;
# ABSTRACT: Catalog (list) of stock exchanges

__END__