App-Chart
view release on metacpan or search on metacpan
lib/App/Chart/Suffix/AS.pm view on Meta::CPAN
use warnings;
use Locale::TextDomain 'App-Chart';
use App::Chart;
use App::Chart::Sympred;
use App::Chart::Yahoo;
our $timezone_amsterdam = App::Chart::TZ->new
(name => __('Amsterdam'),
choose => [ 'Europe/Amsterdam' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Regexp->new (qr/^\^AEX|\.AS$/);
$timezone_amsterdam->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
#
App::Chart::Weblink->new
(pred => $pred,
lib/App/Chart/Suffix/BC.pm view on Meta::CPAN
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_barcelona = App::Chart::TZ->new
(name => __('Barcelona'),
# only Madrid for Spain in the Olson database
choose => [ 'Europe/Barcelona', 'Europe/Madrid' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.BC');
$timezone_barcelona->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
App::Chart::Weblink->new
(pred => $pred,
lib/App/Chart/Suffix/BE.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
our $timezone_berlin = App::Chart::TZ->new
(name => __('Berlin'),
choose => [ 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.BE');
$timezone_berlin->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
App::Chart::Weblink->new
(pred => $pred,
lib/App/Chart/Suffix/BI.pm view on Meta::CPAN
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_bilbao = App::Chart::TZ->new
(name => __('Bilbao'),
# no separate Bilbao in Olson database
choose => [ 'Europe/Bilbao', 'Europe/Madrid' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.BI');
$timezone_bilbao->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
# haven't found any actual .BI on yahoo except 20.BI index
App::Chart::Weblink->new
lib/App/Chart/Suffix/BM.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Yahoo;
my $timezone_bremen = App::Chart::TZ->new
(name => __('Bremen'),
# no separate entry for Bremen in the Olson database
choose => [ 'Europe/Bremen', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.BM');
$timezone_bremen->setup_for_symbol ($pred);
1;
__END__
lib/App/Chart/Suffix/CME.pm view on Meta::CPAN
'GLB' => 'GH', # 1-month LIBOR electronic
'TB' => undef, # 13-week treasury bills
'GTB' => undef, # 13-week treasury bills electronic
# 'S2' # 2-year swap pit+electronic
# 'S5' # 5-year swap electronic
'SW5' => undef, # 5-year swap pit
# 'S0' # 10-year swap
'SW0' => 'S0', # 10-year swap electronic
'TIE' => 'F3', # 28-day mexican TIIE
'GTI' => 'F4', # 28-day mexican TIIE electronic
'CET' => 'F1', # 91-day mexican CETES
'GCE' => 'F2', # 91-day mexican CETES electronic
'Y5' => undef, # 5-year eurodollar bundle options
'CPI' => 'CI', # consumer price index
# 'ED' # eurodollar
# 'GE' # eurodollar electronic
'3F' => undef, # eurodollar FRA
# 'EY' # euroyen
# 'EL' # euroyen LIBOR
'TZ' => undef, # fed funds turn
# 'JB' # japanese government bonds
# (F0, F5 agency swaps delisted 11 Apr 05)
lib/App/Chart/Suffix/CO.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_copenhagen = App::Chart::TZ->new
(name => __('Copenhagen'),
choose => [ 'Europe/Copenhagen' ],
fallback => 'CET-1');
# ^KFX index
my $pred_all = App::Chart::Sympred::Regexp->new (qr/^\^KF|\.CO$/);
my $pred_shares = App::Chart::Sympred::Suffix->new ('.CO');
$timezone_copenhagen->setup_for_symbol ($pred_all);
# http://omxgroup.com/nordicexchange/Abouttrading/tradinginformation/tradinghours/
# Equities from 9:00 or 9:15, bonds from 8:00 or 8:30
# Closing 16:50 or with further call to 17:00, bulletin board to 17:30
lib/App/Chart/Suffix/D.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_dusseldorf = App::Chart::TZ->new
(name => __('Dusseldorf'),
choose => [ 'Europe/Dusseldorf', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.D');
$timezone_dusseldorf->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
App::Chart::Weblink->new
(pred => $pred,
lib/App/Chart/Suffix/F.pm view on Meta::CPAN
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
use App::Chart::Suffix::BE;
my $timezone_frankfurt = App::Chart::TZ->new
(name => __('Frankfurt'),
# no Frankfurt separately in Olson database
choose => [ 'Europe/Frankfurt', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.F');
$timezone_frankfurt->setup_for_symbol ($pred);
1;
__END__
lib/App/Chart/Suffix/H.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_hamburg = App::Chart::TZ->new
(name => __('Hamburg'),
# no Hamburg separately in Olson database
choose => [ 'Europe/Hamburg', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.H');
$timezone_hamburg ->setup_for_symbol ($pred);
1;
__END__
lib/App/Chart/Suffix/HA.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_hanover = App::Chart::TZ->new
(name => __('Hanover'),
# no Hanover separately in Olson database
choose => [ 'Europe/Hanover', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.HA');
$timezone_hanover->setup_for_symbol ($pred);
1;
__END__
lib/App/Chart/Suffix/HM.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_hamburg = App::Chart::TZ->new
(name => __('Hamburg'),
# no Hamburg separately in Olson database
choose => [ 'Europe/Hamburg', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.HM');
$timezone_hamburg->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
App::Chart::Weblink->new
(pred => $pred,
lib/App/Chart/Suffix/LJ.pm view on Meta::CPAN
use App::Chart::DownloadHandler::IndivChunks;
use App::Chart::LatestHandler;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
my $timezone_ljubljana = App::Chart::TZ->new
(name => __('Ljubljana'),
choose => [ 'Europe/Ljubljana' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.LJ');
$timezone_ljubljana->setup_for_symbol ($pred);
# (source-help! ljubljana-symbol?
# __p('manual-node','Ljubljana Stock Exchange'))
#-----------------------------------------------------------------------------
lib/App/Chart/Suffix/MA.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
our $timezone_madrid = App::Chart::TZ->new
(name => __('Madrid'),
choose => [ 'Europe/Madrid' ],
fallback => 'CET-1');
# Indexes:
# ^SMSI
# and not ^SML - S&P small 600
#
my $pred_indexes = App::Chart::Sympred::Prefix->new ('^SMS');
# .MA main
# .MC CATS
# .MF fixed interest
lib/App/Chart/Suffix/MI.pm view on Meta::CPAN
# As of March 2007 the http://finance.yahoo.com/exchanges list doesn't
# include Milan any more, but it still seems to work.
our $timezone_milan = App::Chart::TZ->new
(name => __('Milan'),
# no separate entry for Milan in Olson database
choose => [ 'Europe/Milan', 'Europe/Rome' ],
fallback => 'CET-1');
# ^MIBTEL
my $pred_indexes = App::Chart::Sympred::Prefix->new ('^MIB');
my $pred_shares = App::Chart::Sympred::Suffix->new ('.MI');
my $pred_any = App::Chart::Sympred::Any->new ($pred_indexes, $pred_shares);
$timezone_milan->setup_for_symbol ($pred_any);
# ;; See: http://www.borsaitaliana.it/chisiamo/mercatigestiti/orari/orarionegoziazioni.en.htm
lib/App/Chart/Suffix/MU.pm view on Meta::CPAN
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
our $timezone_munich = App::Chart::TZ->new
(name => __('Munich'),
# no Munich separately in Olson database
choose => [ 'Europe/Munich', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.MU');
$timezone_munich->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
App::Chart::Weblink->new
(pred => $pred,
lib/App/Chart/Suffix/NoSuffix.pm view on Meta::CPAN
[ '^ATLI', '.AX' ], # asx 20
[ '^AFLI', '.AX' ], # asx 50
[ '^ATOI', '.AX' ], # asx 100
# ^BFX belgium
[ '^BF', sub {
my $pred = App::Chart::Sympred::Prefix->new ('^BF');
my $timezone_brussels = App::Chart::TZ->new
(name => __('Brussels'),
choose => [ 'Europe/Brussels' ],
fallback => 'CET-1');
$timezone_brussels->setup_for_symbol ($pred);
# only home page for now ...
App::Chart::Weblink->new
(pred => $pred,
name => __('Brussels Stock Exchange Home Page'),
desc => __('Open web browser at the Brussels Stock Exchange home page'),
# now part of euronext ...
url => 'http://www.stockexchange.be');
} ],
lib/App/Chart/Suffix/NoSuffix.pm view on Meta::CPAN
desc => __('Open web browser at the Phillipine Stock Exchange home page'),
url => 'http://www.pse.org.ph');
} ],
# ^PX50 prague
[ '^PX', sub {
my $pred = App::Chart::Sympred::Prefix->new ('^PX');
my $timezone_prague = App::Chart::TZ->new
(name => __('Prague'),
choose => [ 'Europe/Prague', 'Europe/Berlin' ],
fallback => 'CET-1');
$timezone_prague->setup_for_symbol ($pred);
# only home page for now ...
App::Chart::Weblink->new
(pred => $pred,
name => __p('prague','_PSE Home Page'),
desc => __('Open web browser at the Prague Stock Exchange home page'),
url => App::Chart::Glib::Ex::MoreUtils::lang_select
('cs' => 'http://www.pse.cz',
'en' => 'http://www.pse.cz/default.asp?language=english'));
lib/App/Chart/Suffix/OL.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
our $timezone_oslo = App::Chart::TZ->new
(name => __('Oslo'),
choose => [ 'Europe/Oslo' ],
fallback => 'CET-1');
# Indexes:
# ^OSEAX
my $pred_indexes = App::Chart::Sympred::Prefix->new ('^OS');
my $pred_shares = App::Chart::Sympred::Suffix->new ('.OL');
my $pred_any = App::Chart::Sympred::Any->new ($pred_indexes, $pred_shares);
$timezone_oslo->setup_for_symbol ($pred_any);
lib/App/Chart/Suffix/PA.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
our $timezone_paris = App::Chart::TZ->new
(name => __('Paris'),
choose => [ 'Europe/Paris' ],
fallback => 'CET-1');
my $pred_indexes = App::Chart::Sympred::Prefix->new ('^FC');
my $pred_shares = App::Chart::Sympred::Suffix->new ('.PA');
my $pred_any = App::Chart::Sympred::Any->new ($pred_indexes, $pred_shares);
$timezone_paris->setup_for_symbol ($pred_any);
1;
__END__
lib/App/Chart/Suffix/SG.pm view on Meta::CPAN
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
our $timezone_stuttgart = App::Chart::TZ->new
(name => __('Stuttgart'),
# no Stuttgart separately in Olson database
choose => [ 'Europe/Stuttgart', 'Europe/Berlin' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.SG');
$timezone_stuttgart->setup_for_symbol ($pred);
#------------------------------------------------------------------------------
# weblink - only the home page for now ...
App::Chart::Weblink->new
(pred => $pred,
lib/App/Chart/Suffix/ST.pm view on Meta::CPAN
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
our $timezone_stockholm = App::Chart::TZ->new
(name => __('Stockholm'),
choose => [ 'Europe/Stockholm' ],
fallback => 'CET-1');
my $pred_shares = App::Chart::Sympred::Suffix->new ('.ST');
my $pred_indexes = App::Chart::Sympred::Prefix->new ('^OMX');
my $pred_any = App::Chart::Sympred::Any->new ($pred_shares, $pred_indexes);
$timezone_stockholm->setup_for_symbol ($pred_any);
# http://omxgroup.com/nordicexchange/Abouttrading/tradinginformation/tradinghours/
# Equities from 9:00, bulletin board reporting to 18:00
lib/App/Chart/Suffix/SW.pm view on Meta::CPAN
use Locale::TextDomain 'App-Chart';
use App::Chart;
use App::Chart::Sympred;
use App::Chart::Yahoo;
our $timezone_switzerland = App::Chart::TZ->new
(name => __('Switzerland'),
choose => [ 'Europe/Zurich' ],
fallback => 'CET-1');
# http://au.finance.yahoo.com/intlindices
# ^SSMI - SMI
# and note not hitting ^SSEC (in SS.pm)
#
my $pred = App::Chart::Sympred::Regexp->new (qr/^\^SSM|\.SW$/);
$timezone_switzerland->setup_for_symbol ($pred);
lib/App/Chart/Suffix/VI.pm view on Meta::CPAN
use App::Chart::Glib::Ex::MoreUtils;
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
use App::Chart::Yahoo;
my $timezone_vienna = App::Chart::TZ->new
(name => __('Vienna'),
choose => [ 'Europe/Vienna' ],
fallback => 'CET-1');
# Indexes:
# ^ATX
# and avoid ^ATLI and similar in AX.pm
#
my $pred_indexes = App::Chart::Sympred::Prefix->new ('^ATX');
my $pred_shares = App::Chart::Sympred::Suffix->new ('.VI');
my $pred_any = App::Chart::Sympred::Any->new ($pred_indexes, $pred_shares);
$timezone_vienna->setup_for_symbol ($pred_any);
lib/App/Chart/Suffix/ZAG.pm view on Meta::CPAN
use App::Chart::Glib::Ex::MoreUtils;
use App::Chart;
use App::Chart::Sympred;
use App::Chart::TZ;
use App::Chart::Weblink;
my $timezone_zagreb = App::Chart::TZ->new
(name => __('Zagreb'),
choose => [ 'Europe/Zagreb' ],
fallback => 'CET-1');
my $pred = App::Chart::Sympred::Suffix->new ('.ZAG');
$timezone_zagreb->setup_for_symbol ($pred);
# App::Chart::setup_source_help
# ($pred, __p('manual-node','Zagreb Stock Exchange'));
#------------------------------------------------------------------------------
# weblink - company info
( run in 0.799 second using v1.01-cache-2.11-cpan-49f99fa48dc )