use 5.012;
use Moo;
use Mojo::UserAgent;
use Encode qw( encode decode );
use Mojo::JSON 'decode_json', 'encode_json';
use Net::Protocol::OBSRemote;
use Future::Mojo;
our $VERSION = '0.03';
use Filt
ub($tx,$msg) {
# At least from Windows, OBS sends Latin-1 in JSON
my $payload = decode_json(encode('UTF-8',decode('Latin-1', $msg)));
if( my $type = $p
message( $id, sub($response) {
$res->done($response);
});
$self->tx->send( encode_json( $msg ));
return $res
};
=head1 METHODS
For the OBS methods, see L<Net::Protocl::OBSRemote>