gistfile1.pl

# Rate limit status example

my $r = $nt->rate_limit_status;
my $status_show_limit = $r->{resources}{'/statuses/show/:id'};
my $remaining = $status_show_limit->{remaining};

# Or, unpack limit, remaining and reset together:
my ( $limit, $remaining, $reset ) = @{$r->{resources}{statuses}{'/statuses/show/:id'}}{qw/limit remaining reset/};