view release on metacpan or  search on metacpan

lib/AnyEvent/Plurk.pm  view on Meta::CPAN

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
        }
    );
 
    $v->recv if !$cb;
    return wantarray ? ($data, $header) : $data;
}
 
sub new {
   my $this  = shift;
   my $class = ref($this) || $this;
   my $self  = $class->SUPER::new(@_);
 
   unless (defined $self->{api_key}) {
      croak "no 'api_key' given to AnyEvent::Plurk\n";
   }
 
   unless (defined $self->{username}) {
      croak "no 'username' given to AnyEvent::Plurk\n";
   }
 
   unless (defined $self->{password}) {