From: Michael Stapelberg Date: Sat, 13 Mar 2010 16:19:38 +0000 (+0100) Subject: prefix internal subs with _ X-Git-Tag: AnyEvent-0.02~19 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=e6ee605eb5755a6f7e467462319f926f8464fa2c;p=i3%2Fi3 prefix internal subs with _ --- diff --git a/lib/AnyEvent/I3.pm b/lib/AnyEvent/I3.pm index f365d394..c11acf01 100644 --- a/lib/AnyEvent/I3.pm +++ b/lib/AnyEvent/I3.pm @@ -66,7 +66,7 @@ my %events = ( workspace => ($event_mask | 0), ); -sub bytelength { +sub _bytelength { my ($scalar) = @_; use bytes; length($scalar) @@ -106,7 +106,7 @@ sub connect { $self->{ipchdl} = AnyEvent::Handle->new( fh => $fh, - on_read => sub { my ($hdl) = @_; $self->data_available($hdl) } + on_read => sub { my ($hdl) = @_; $self->_data_available($hdl) } ); $cv->send @@ -115,7 +115,7 @@ sub connect { $cv } -sub data_available { +sub _data_available { my ($self, $hdl) = @_; $hdl->unshift_read( @@ -126,13 +126,13 @@ sub data_available { my ($len, $type) = unpack("LL", substr($header, length($magic))); $hdl->unshift_read( chunk => $len, - sub { $self->handle_i3_message($type, $_[1]) } + sub { $self->_handle_i3_message($type, $_[1]) } ); } ); } -sub handle_i3_message { +sub _handle_i3_message { my ($self, $type, $payload) = @_; return unless defined($self->{callbacks}->{$type}); @@ -155,7 +155,7 @@ sub subscribe { my ($self, $callbacks) = @_; my $payload = encode_json [ keys %{$callbacks} ]; - my $message = $magic . pack("LL", bytelength($payload), 2) . $payload; + my $message = $magic . pack("LL", _bytelength($payload), 2) . $payload; $self->{ipchdl}->push_write($message); # Register callbacks for each message type @@ -190,7 +190,7 @@ sub message { $payload = encode_json $content; } } - my $message = $magic . pack("LL", bytelength($payload), $type) . $payload; + my $message = $magic . pack("LL", _bytelength($payload), $type) . $payload; $self->{ipchdl}->push_write($message); my $cv = AnyEvent->condvar;