Net::Flowdock::Stream::VERSION = '0.01';
}
use Moose;
# ABSTRACT: Streaming API for Flowdock
use JSON;
use MIME::Base64;
use Net::HTTPS::NB;
has token => (
is => 'ro',
isa => 'Str',
);
Authorization => 'Basic ' . MIME::Base64::encode($auth),
Accept => 'application/json',
);
my ($code, $message, %headers) = $s->read_response_headers;
die "Unable to conn
$self->_readbuf($buf);
warn "New event:\n$chunk" if $self->debug;
return decode_json($chunk);
}
return;
}
__PACKAGE__->meta->make_immutable;
no Moose;
1;
__END__
=pod
=