use v5.14;
use strict;
use warnings;
use warnings   qw(FATAL utf8);
use open       qw(:std :utf8);
use charnames  qw(:full :short);

use FindBin;
use lib "$FindBin::Bin/../lib";
use WWW::Scraper::F1;
use Getopt::Long;
use Unicode::Normalize;
use Carp;

my $upcoming    = 1;
my $top         = -1;
my $points      = '';
my $cache       = 1;

GetOptions(
    'upcoming!' => \$upcoming,
    'cache!'     => \$cache,
    'top:i'     => \$top,
    'points=s'  => \$points,
);

if ($upcoming){
   my $race_info = get_upcoming_race( {cache => $cache}  ) ;
   print "$race_info->{city}, $race_info->{country}\n$race_info->{countdown}\n";
}

my $champ_info = get_top_championship( {length => $top, cache => $cache} );

foreach my $t (@$champ_info){
   if($points eq "no"){
       print "$t->{pos}. $t->{driver}\n";
   }elsif($points eq "just"){
       print "$t->{points}\n";
   }else{
       print "$t->{pos}. $t->{driver}\t $t->{points}\n";
   }
}