| Subject: | Error(s): [BAD_CAPTCHA] |
I tried your example program (replacing of course with my user:secret information), and I got
this message:
Error(s): [BAD_CAPTCHA] care to try these again? at ./r.pl line 16.
In addition, test t/helpers.t failed using my locale (fr_FR.utf8) but passed using en_US.utf-8.
# Failed test 'DEBUG'
# at t/helpers.t line 40.
# '[Jeu fév 7 00:04:14 2013] [ test 1 ]
# '
# doesn't match '(?^:^\[... ...\s+\d{1,2} \d\d:\d\d:\d\d \d\d\d\d\] \[ test 1 \]\n$)'
# Failed test 'DEBUG'
# at t/helpers.t line 41.
# '[Jeu fév 7 00:04:14 2013] [ test 2 ]
# '
# doesn't match '(?^:^\[... ...\s+\d{1,2} \d\d:\d\d:\d\d \d\d\d\d\] \[ test 2 \]\n$)'
# Failed test 'DEBUG'
# at t/helpers.t line 42.
# '[Jeu fév 7 00:04:14 2013] [ test 3 ]
# '
# doesn't match '(?^:^\[... ...\s+\d{1,2} \d\d:\d\d:\d\d \d\d\d\d\] \[ test 3 \]\n$)'
# Looks like you failed 3 tests of 18.
t/helpers.t .......
Dubious, test returned 3 (wstat 768, 0x300)
Failed 3/18 subtests
| Subject: | r.pl |
#!/usr/bin/env perl
use 5.10.0;
use Reddit::Client;
use Data::Dumper;
my $session_file = '.reddit';
my $reddit = Reddit::Client->new( session_file => $session_file );
unless ( $reddit->is_logged_in ) {
$reddit->login( '****', '****' );
$reddit->save_session();
}
$reddit->submit_link(
subreddit => 'perl',
title => 'Perl is still alive!',
url => 'http://www.perl.org'
);
my $links = $reddit->fetch_links( subreddit => '/r/perl', limit => 10 );
foreach ( @{ $links->{items} } ) {
say Data::Dumper $_;
}