App-financeta

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        'POSIX' => 0,
        'Cwd' => 0,
        'Pod::Usage' => '2.03',
        'Data::Dumper' => '2.183',
        'File::Spec' => '3.78',
        'File::ShareDir' => '1.118',
        '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',

META.json  view on Meta::CPAN

            "PDL::Graphics::Gnuplot" : "2.021",
            "POE::Loop::Prima" : "1.03",
            "POSIX" : "0",
            "Path::Tiny" : "0.144",
            "Pegex" : "0.75",
            "Perl::Tidy" : "0",
            "Pod::Usage" : "2.03",
            "Prima" : "1.68002",
            "Scalar::Util" : "1.63",
            "Template::Toolkit" : "3.100",
            "Try::Tiny" : "0.31",
            "YAML::Any" : "1.30",
            "perl" : "v5.10.0"
         }
      }
   },
   "provides" : {
      "App::financeta" : {
         "file" : "lib/App/financeta.pm",
         "version" : "0.16"
      },

META.yml  view on Meta::CPAN

  PDL::Graphics::Gnuplot: '2.021'
  POE::Loop::Prima: '1.03'
  POSIX: '0'
  Path::Tiny: '0.144'
  Pegex: '0.75'
  Perl::Tidy: '0'
  Pod::Usage: '2.03'
  Prima: '1.68002'
  Scalar::Util: '1.63'
  Template::Toolkit: '3.100'
  Try::Tiny: '0.31'
  YAML::Any: '1.30'
  perl: v5.10.0
resources:
  bugtracker: https://github.com/vikasnkumar/financeta/issues
  license: http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt
  repository: https://github.com/vikasnkumar/financeta
version: '0.16'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

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));

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

package App::financeta::data::yahoo;
use strict;
use warnings;
use 5.10.0;
use Try::Tiny;
use Finance::QuoteHist;
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));

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

use strict;
use warnings;
use 5.10.0;

our $VERSION = '0.16';
$VERSION = eval $VERSION;
use App::financeta::mo;
use App::financeta::utils qw(dumper log_filter get_icon_path get_file_path);
use Carp ();
use Log::Any '$log', filter => \&App::financeta::utils::log_filter;
use Try::Tiny;
use File::Spec;
use File::HomeDir;
use File::Path ();
use DateTime;
if ($^O !~ /win32/i) {
    eval {
        require POE;
        require POE::Kernel;
        POE::Kernel->import({loop => 'Prima'});
        require POE::Session;

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

use File::ShareDir 'dist_file';
if ($^O !~ /win32/i) {
    eval {
        require POE;
        require POE::Kernel;
        POE::Kernel->import({loop => 'Prima'});
        require POE::Session;
    } or die "Unable to load POE::Loop::Prima";
}
use Prima qw(Application Edit MsgBox sys::GUIException);
use Try::Tiny;
use App::financeta::language;

$| = 1;
has debug => 0;
has parent => undef;
has main => (builder => '_build_main');
has brand => __PACKAGE__;
has tab_name => undef;
has compiler => (default => sub {
    return App::financeta::language->new(debug => 0);

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

use warnings;
use 5.10.0;

use App::financeta::mo;
use App::financeta::utils qw(dumper log_filter);
use Log::Any '$log', filter => \&App::financeta::utils::log_filter;
use Prima qw(
    Application Buttons MsgBox Calendar Label InputLine ComboBox
    sys::GUIException Utils
);
use Try::Tiny;
use DateTime;
use Browser::Open ();

$|=1;

has owner => undef;
has gui => (required => 1);
has wizard => ( builder => '_build_wizard' );

sub run {

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

package App::financeta::utils;
use strict;
use warnings;
use 5.10.0;
use Data::Dumper ();
use Exporter qw(import);
use Log::Any '$log', filter => \&log_filter;
use Try::Tiny;
use File::ShareDir 'dist_file';
use File::Spec::Functions qw(rel2abs catfile);
use Cwd qw(getcwd);

our $VERSION = '0.16';
$VERSION = eval $VERSION;
our @EXPORT_OK = (
    qw(dumper log_filter get_icon_path get_file_path)
);

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;
    my $url = sprintf("https://api.gemini.com/v2/candles/%s/%s", lc $symbol, '1day');
    if (-e $filename) {
        print "Found $filename, loading data from that\n";

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";
    my $content;
    my $qdata;
    my $url = sprintf("https://api.gemini.com/v2/candles/%s/%s", lc $symbol, '1day');