1234567891011121314 #!/usr/bin/env perluse strictures 1;use warnings;use FindBin;use lib "$FindBin::Bin/../../lib";use Net::OAuth::LP::Client;use Data::Dump qw(pp);my $client = Net::OAuth::LP::Client->new;$client->consumer_key('cts-pika-bot');$client->login_with_creds;pp $client;
#!/usr/bin/env perl
use
strictures 1;
warnings;
FindBin;
lib
"$FindBin::Bin/../../lib"
;
Net::OAuth::LP::Client;
Data::Dump
qw(pp)
my
$client
= Net::OAuth::LP::Client->new;
->consumer_key(
'cts-pika-bot'
);
->login_with_creds;
pp