#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use Config::Pit;
use Net::Twitter;

my $config = pit_get("twitter" , require => {
    "username" => "your username on twitter",
    "password" => "your password on twitter",
});
die 'pit_get failed.' if !%$config;
my $username = $config->{username} or die 'username not found.';
my $password = $config->{password} or die 'password not found.';

my $twitter = Net::Twitter->new(
    traits   => [qw/API::REST/],
    username => $username,
    password => $password,
);

my $result = $twitter->rate_limit_status();
say 'remaining-hits: ' . $result->{remaining_hits};
say 'reset-time    : ' . $result->{reset_time};