App-Chart

 view release on metacpan or  search on metacpan

lib/App/Chart/Series/GT.pm  view on Meta::CPAN

use 5.010;
use strict;
use warnings;
use Carp;
use List::Util qw(min max);
use base 'App::Chart::Series';

use GT::Prices;
use GT::Conf;
use GT::Eval;
use GT::DateTime;
use GT::Tools;

use constant DEBUG => 0;


my %class_to_timeframe = ('App::Chart::Timebase::Days'   => $DAY,
                          'App::Chart::Timebase::Weeks'  => $WEEK,
                          'App::Chart::Timebase::Months' => $MONTH,
                          'App::Chart::Timebase::Years'  => $YEAR);

lib/GT/DB/Chart.pm  view on Meta::CPAN

use Carp;
use List::Util;

# don't "use base" since GT::DB as of 2010 doesn't have a $VERSION and
# base.pm will warn and assign $GT::DB::VERSION=-1
use GT::DB;
our @ISA = ('GT::DB');

use GT::Prices;
use GT::Conf;
use GT::DateTime;

# uncomment this to run the ### lines
#use Smart::Comments;

our $VERSION = 275;

# extra appended to GT::Prices elements giving the tdate etc corresponding
# to the $DATE element
our $DATE_T = List::Util::max ($OPEN, $HIGH, $LOW, $CLOSE, $VOLUME, $DATE) + 1;

misc/t-gt.pl  view on Meta::CPAN

# BEGIN { push @INC, '/usr/share/perl5'; }

use strict;
use warnings;
use GT::Prices;
use GT::DB::Chart;
use GT::Prices;
use GT::Conf;
use GT::Eval;
use GT::DateTime;
use GT::Tools qw(:timeframe);

GT::Conf::load();

{
  my $symbol = 'IIF.AX';
  $symbol = 'GXY.AX';


  # my $indicator = create_standard_object("I:BOL");

misc/t-gt.pl  view on Meta::CPAN

  }

  exit 0;
}

{
  my $available_timeframes = GT::Conf::get('DB::timeframes_available');
  require Data::Dumper;
  print  Data::Dumper->Dump([$available_timeframes],['available_timeframes']);

  my @tf = GT::DateTime::list_of_timeframe;
  print  Data::Dumper->Dump([\@tf],['list_of_timeframe']);

  exit 0;
}

{
  exit 0;
}