File Coverage

blib/lib/Twitter/Queue.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	6	0.0
condition	0	2	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	40	37.5

package Twitter::Queue;
use warnings;
use strict;
use Net::Twitter::Lite::WithAPIv1_1;
our $VERSION = 0.02;

sub new {
  my ($class, $args) = @_;
  return bless {
    twitter => Net::Twitter::Lite::WithAPIv1_1->new(%$args),
    size    => $args->{size} || 100,
  }, $class;
}

sub add {
  my ($self, $data) = @_;
  my $res = eval { $self->{twitter}->update($data) };
  if ($@) {
    die ref $@ eq 'Net::Twitter::Error'
      ? sprintf 'Error tweeting %s %s %s', $@->code, $@->message, $@->error
      : sprintf 'Error tweeting %s', $@;
  }
  return $res;
}

sub next {
  my ($self) = @_;
  my $statuses = $self->{twitter}->home_timeline({ count => $self->{size} });
  my $next = $statuses->[-1];
  return undef unless $next;
  $self->{twitter}->destroy_status($next->{id});
  return $next->{text};
}

1;
__END__