diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-26 20:24:57 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-26 20:24:57 -0500 |
commit | 062c5f8dac3f71a8784cb2c770482fdeb9d6364e (patch) | |
tree | 1cab28658f1056dd3736b6c756a150583462b617 /lib/Net | |
parent | 1296634250bf6d7b4b8027ee3ce8d2719cff972c (diff) | |
download | net-termcast-062c5f8dac3f71a8784cb2c770482fdeb9d6364e.tar.gz net-termcast-062c5f8dac3f71a8784cb2c770482fdeb9d6364e.zip |
oh yeah, i made these private
Diffstat (limited to 'lib/Net')
-rw-r--r-- | lib/Net/Termcast.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Net/Termcast.pm b/lib/Net/Termcast.pm index abce6a8..742e2cf 100644 --- a/lib/Net/Termcast.pm +++ b/lib/Net/Termcast.pm @@ -87,7 +87,7 @@ sub BUILD { sub refresh { my $self = shift; - $self->sock->send(' ', 0); + $self->_sock->send(' ', 0); $self->_get_menu; } @@ -95,8 +95,8 @@ sub select_session { my $self = shift; my ($session) = @_; return unless exists $self->sessions->{$session}; - $self->sock->send('q', 0) if $self->in_menu; - $self->sock->send($session, 0); + $self->_sock->send('q', 0) if $self->in_menu; + $self->_sock->send($session, 0); $self->_get_screen; $self->in_menu(0); } @@ -105,7 +105,7 @@ sub select_session { sub screen_rows { my $self = shift; my @rows; - push @rows, $self->vt->row_plaintext($_) for 1..$self->rows; + push @rows, $self->_vt->row_plaintext($_) for 1..$self->rows; return @rows; } @@ -117,8 +117,8 @@ sub screen { sub _get_screen { my $self = shift; my $screen; - $self->sock->recv($screen, 4096, 0); - $self->vt->process($screen); + $self->_sock->recv($screen, 4096, 0); + $self->_vt->process($screen); } sub _get_menu { |