Yet Another CPAN Grep

App-Termcast ( D/DO/DOY/App-Termcast-0.12.tar.gz, DOY, 2012; MetaCPAN )

App-Termcast/lib/App/Termcast.pm ( view source; MetaCPAN )

ons for remote viewing

with 'MooseX::Getopt::Dashes';

use IO::Select;
use IO::Socket::INET;
use JSON;
use Scalar::Util 'weaken';
use Term::Filter::Callback;
use Term::ReadKey;
use Try::Tiny;



has

m_metadata_string {
    my $self = shift;
    my %data = @_;

    my $json = JSON::encode_json(\%data);

    return "\e[H\x00$json\xff\e[H\e[2J";
}

sub _build_socket {
    my $self = shift;

    my $