App-financeta

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        'File::HomeDir' => '1.006',
        'File::Path' => '2.18',
        'Path::Tiny' => '0.144',
        'Capture::Tiny' => '0.48',
        'Try::Tiny' => '0.31',
        'PDL'  => '2.081',
        'DateTime' => '1.59',
        'DateTime::Format::Strptime' => '1.79',
        'Finance::QuoteHist' => '1.32',
        'LWP::UserAgent' => '6.52',
        'JSON::XS' => '4.03',
        'PDL::Finance::TA' => '0.010',
        'Prima' => '1.68002',
        'PDL::Graphics::Gnuplot' => '2.021',
        'Scalar::Util' => '1.63',
        'Getopt::Long' => '2.54',
        'Browser::Open' => '0.04',
        'YAML::Any' => '1.30',
        'Pegex' => '0.75',
        'Perl::Tidy' => 0,
        'Log::Any' => '1.713',

META.json  view on Meta::CPAN

            "Cwd" : "0",
            "Data::Dumper" : "2.183",
            "DateTime" : "1.59",
            "DateTime::Format::Strptime" : "1.79",
            "File::HomeDir" : "1.006",
            "File::Path" : "2.18",
            "File::ShareDir" : "1.118",
            "File::Spec" : "3.78",
            "Finance::QuoteHist" : "1.32",
            "Getopt::Long" : "2.54",
            "JSON::XS" : "4.03",
            "LWP::UserAgent" : "6.52",
            "Log::Any" : "1.713",
            "PDL" : "2.081",
            "PDL::Finance::TA" : "0.010",
            "PDL::Graphics::Gnuplot" : "2.021",
            "POE::Loop::Prima" : "1.03",
            "POSIX" : "0",
            "Path::Tiny" : "0.144",
            "Pegex" : "0.75",
            "Perl::Tidy" : "0",

META.yml  view on Meta::CPAN

  Cwd: '0'
  Data::Dumper: '2.183'
  DateTime: '1.59'
  DateTime::Format::Strptime: '1.79'
  File::HomeDir: '1.006'
  File::Path: '2.18'
  File::ShareDir: '1.118'
  File::Spec: '3.78'
  Finance::QuoteHist: '1.32'
  Getopt::Long: '2.54'
  JSON::XS: '4.03'
  LWP::UserAgent: '6.52'
  Log::Any: '1.713'
  PDL: '2.081'
  PDL::Finance::TA: '0.010'
  PDL::Graphics::Gnuplot: '2.021'
  POE::Loop::Prima: '1.03'
  POSIX: '0'
  Path::Tiny: '0.144'
  Pegex: '0.75'
  Perl::Tidy: '0'

lib/App/financeta/data/gemini.pm  view on Meta::CPAN

package App::financeta::data::gemini;
use strict;
use warnings;
use 5.10.0;
use Try::Tiny;
use LWP::UserAgent;
use JSON::XS qw(decode_json);
use DateTime;
use App::financeta::utils qw(dumper log_filter);
use Log::Any '$log', filter => \&App::financeta::utils::log_filter;
use PDL::Lite;#for pdl

our $VERSION = '0.16';
$VERSION = eval $VERSION;
#our @EXPORT_OK = (qw(ohlcv));

sub ohlcv {

lib/App/financeta/gui.pm  view on Meta::CPAN

use PDL::Graphics::Gnuplot;
use App::financeta::gui::security_wizard;
use App::financeta::gui::progress_bar;
use App::financeta::gui::editor;
use App::financeta::gui::tradereport;
use App::financeta::indicators;
use App::financeta::data;
use Scalar::Util qw(blessed);
use Browser::Open ();
use YAML::Any ();
use JSON::XS qw(encode_json);
use Template;

$PDL::doubleformat = "%0.6lf";
$| = 1;
has debug => 0;
has timezone => 'America/New_York';
has brand => __PACKAGE__;
has main => (builder => '_build_main');
has tmpdir => ( default => sub {
    my $dir = $ENV{TEMP} || $ENV{TMP} || $ENV{APPDATA} if $^O =~ /Win32|Cygwin/i;

lib/App/financeta/indicators.pm  view on Meta::CPAN

our $VERSION = '0.16';
$VERSION = eval $VERSION;
use App::financeta::mo;
use App::financeta::utils qw(dumper log_filter);
use Log::Any '$log', filter => \&App::financeta::utils::log_filter;
use PDL;
use PDL::NiceSlice;
use PDL::Finance::TA;
use POSIX ();
use JSON::XS qw(encode_json);

$PDL::doubleformat = "%0.6lf";
has debug => 0;
has plot_engine => 'highcharts';
has color_idx => 0;
has colors => [qw(
    red
    yellow
    pink
    green

share/testpdl.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use PDL;
use PDL::NiceSlice;
use PDL::Finance::TA;
use PDL::Graphics::Gnuplot;
use JSON::XS qw(decode_json);
use LWP::UserAgent;
use DateTime;
use Try::Tiny;
use Path::Tiny;

sub get_data($) {
    my $symbol = shift;
    my $filename = lc "$symbol.json";
    my $content;
    my $qdata;

share/testpdljs.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use PDL;
use PDL::NiceSlice;
use PDL::Finance::TA;
use JSON::XS qw(decode_json encode_json);
use LWP::UserAgent;
use DateTime;
use Try::Tiny;
use Path::Tiny;
use Template;
use Browser::Open;

sub get_data($) {
    my $symbol = shift;
    my $filename = lc "$symbol.json";