#!/usr/bin/env perl

use strict;

use Finance::Nadex;

if (! $ENV{NADEXUSERNAME} || ! $ENV{NADEXPASSWORD}) {
    die "to use this program, you must set NADEXUSERNAME and NADEXPASSWORD in your environment with your Nadex username and password\n";
}

my $client = Finance::Nadex->new();
$client->login(username => $ENV{NADEXUSERNAME}, password => $ENV{NADEXPASSWORD});

my @markets = $client->get_markets();

my $market = 'Forex (Spreads)';
my $instrument = 'GBP/USD';
my $series = 'Daily (3pm)';

my @contracts = $client->get_contracts( market => $market, instrument => $instrument, series => $series);

exit unless scalar @contracts;

foreach my $contract (@contracts) {
   print join(" ", $contract->epic, $contract->contract, $contract->expirydate, $contract->bid, $contract->offer, $contract->type), "\n";
}
