semifor/twitter-re.pl

## twitter-re.pl
#!/usr/bin/env perl -d
use 5.22.0;

use Getopt::Long;
use Twitter::API;
use open qw/:std :utf8/;

my @traits = qw/Enchilada/;
my $traits = '';
GetOptions(
    'traits=s', \$traits,
) or die "usage...\n";

if ( $traits ) {
    @traits = split /,/ => $traits;
}

my %cred = (
    consumer_key        => $ENV{TWITTER_API_CONSUMER_KEY}        // die,
    consumer_secret     => $ENV{TWITTER_API_CONSUMER_SECRET}     // die,
    access_token        => $ENV{TWITTER_API_ACCESS_TOKEN}        // die,
    access_token_secret => $ENV{TWITTER_API_ACCESS_TOKEN_SECRET} // die,
);

my $client = Twitter::API->new_with_traits(
    @traits ? ( traits => \@traits ): (),
    %cred
);

$DB::deep = 1000;
$DB::single = 1;
1;
	#!/usr/bin/env perl -d
	use 5.22.0;

	use Getopt::Long;
	use Twitter::API;
	use open qw/:std :utf8/;

	my @traits = qw/Enchilada/;
	my $traits = '';
	GetOptions(
	'traits=s', \$traits,
	) or die "usage...\n";

	if ( $traits ) {
	@traits = split /,/ => $traits;
	}

	my %cred = (
	consumer_key => $ENV{TWITTER_API_CONSUMER_KEY} // die,
	consumer_secret => $ENV{TWITTER_API_CONSUMER_SECRET} // die,
	access_token => $ENV{TWITTER_API_ACCESS_TOKEN} // die,
	access_token_secret => $ENV{TWITTER_API_ACCESS_TOKEN_SECRET} // die,
	);

	my $client = Twitter::API->new_with_traits(
	@traits ? ( traits => \@traits ): (),
	%cred
	);

	$DB::deep = 1000;
	$DB::single = 1;
	1;