App::Chart::Sympred -- symbol predicate objects
use App::Chart::Sympred; my $sympred = App::Chart::Sympred::Suffix->new ('.AX'); $sympred->match('FOO.AX') # returns true
A App::Chart::Sympred object represents a predicate for use on stock and commodity symbols, ie. a test of whether a symbol has a certain suffix or similar.
App::Chart::Sympred
$sympred = App::Chart::Sympred::Equal->new ($suffix)
Return a new App::Chart::Sympred object which matches only the given symbol exactly. Eg.
my $sympred = App::Chart::Sympred::Equal->new ('FOO.BAR')
$sympred = App::Chart::Sympred::Suffix->new ($suffix)
Return a new App::Chart::Sympred object which matches the given symbol suffix. Eg.
my $sympred = App::Chart::Sympred::Suffix->new ('.FOO')
$sympred = App::Chart::Sympred::Prefix->new ($prefix)
Return a new App::Chart::Sympred object which matches the given symbol prefix. Eg.
my $sympred = App::Chart::Sympred::Prefix->new ('^NZ')
$sympred = App::Chart::Sympred::Regexp->new (qr/.../)
Return a new App::Chart::Sympred object which matches the given regexp pattern. Eg.
my $sympred = App::Chart::Sympred::Regexp->new (qr/^\^BV|\.SA$/);
$sympred = App::Chart::Sympred::Proc->new (\&proc)
Return a new App::Chart::Sympred object which calls the given proc subroutine to test for a match. Eg.
proc
sub my_fancy_test { my ($symbol) = @_; return (some zany test on $symbol); } my $sympred = App::Chart::Sympred::Proc->new (\&my_fancy_test);
$sympred = App::Chart::Sympred::Any->new ($pred,...)
Return a new App::Chart::Sympred object which is true if any of the given $pred predicates is true. Eg.
$pred
my $nz = App::Chart::Sympred::Suffix->new ('.NZ') my $bc = App::Chart::Sympred::Suffix->new ('.BC') my $sympred = App::Chart::Sympred::Any->new ($nz, $bc);
$sympred->match ($symbol)
Return true if $symbol is matched by the $sympred object.
$symbol
$sympred
$sympred->add ($pred,...)
Add additional predicates to a App::Chart::Sympred::Any object.
App::Chart::Sympred::Any
App::Chart::Sympred::validate ($obj)
Check that $obj is a App::Chart::Sympred object, throw an error if not.
$obj
http://user42.tuxfamily.org/chart/index.html
Copyright 2007, 2008, 2009, 2010, 2013, 2015, 2016 Kevin Ryde
Chart is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version.
Chart is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with Chart; see the file COPYING. Failing that, see http://www.gnu.org/licenses/.
To install App::Chart, copy and paste the appropriate command in to your terminal.
cpanm
cpanm App::Chart
CPAN shell
perl -MCPAN -e shell install App::Chart
For more information on module installation, please visit the detailed CPAN module installation guide.