File Coverage

blib/lib/Term/TtyRec.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	5	6	83.3
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	2	50.0
total	39	45	86.6

package Term::TtyRec;

use strict;
use vars qw($VERSION);
$VERSION = '0.03';

use IO::Handle;

sub new {
    my($proto, $io) = @_;
    my $class = ref $proto || $proto;
    unless ($io->can('read')) {
	require Carp;
	Carp::croak 'Usage: Term::TtyRec->new($io)';
    }
    bless { handle => $io }, $class;
}

sub read_next {
    my $self = shift;
    my($sec, $text);
    eval {
	($sec, my $length) = $self->_read_header;
	$self->{handle}->read($text, $length);
    };
    if ($@) {
	$self->{handle}->clearerr;
	return;
    }
    return $sec, $text;
}

sub _read_header {
    my $self = shift;
    $self->{handle}->read(my($data), 12) or die 'EOF';
    my($sec, $usec, $length) = unpack 'VVV', $data;
    return $sec + $usec / 1_000_000, $length;
}

1;
__END__