summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-06-26 20:24:57 -0500
committerJesse Luehrs <doy@tozt.net>2009-06-26 20:24:57 -0500
commit062c5f8dac3f71a8784cb2c770482fdeb9d6364e (patch)
tree1cab28658f1056dd3736b6c756a150583462b617
parent1296634250bf6d7b4b8027ee3ce8d2719cff972c (diff)
downloadnet-termcast-062c5f8dac3f71a8784cb2c770482fdeb9d6364e.tar.gz
net-termcast-062c5f8dac3f71a8784cb2c770482fdeb9d6364e.zip
oh yeah, i made these private
-rw-r--r--lib/Net/Termcast.pm12
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 {