Skip to content
Browse files

clean up POD and whitespace

  • Loading branch information...
1 parent 6311d4c commit 6f473042b457917ec86b7f026b94a4bcbe36ad66 @rcaputo committed Jan 21, 2001
View
5 Changes
@@ -84,6 +84,11 @@ being set.
Make Wheel::Run's pty conduits run in "raw" or cbreak mode.
+Rob Bloodgood found some POD breakage; C<=item>s without blank lines
+between them, and things like that. Patch applied, and I went through
+everything and cleaned up some trailing whitespace (none of it
+significant) just for kicks.
+
0.1204 2001.01.13
-----------------
View
2 lib/POE.pm
@@ -67,7 +67,7 @@ POE - perl application kernel with event driven threads
# Use POE!
use POE;
-
+
# Every session must handle a special event, _start. It's used to
# tell the session that it has been successfully instantiated.
# $_[KERNEL] is a reference to the program's global POE::Kernel
View
2 lib/POE/Attribute/Array.pm
@@ -30,7 +30,7 @@ sub TIEARRAY {
sub FETCH {
my ($self, $index) = @_;
- my ($status, $value) =
+ my ($status, $value) =
$self->[TA_REPOSITORY]->attribute_fetch( $self->[TA_READ_ID],
$self->[TA_ATTRIBUTE]
);
View
4 lib/POE/Attribute/Hash.pm
@@ -82,7 +82,7 @@ sub STORE {
sub FIRSTKEY {
my ($self) = @_;
- my ($status, $value) =
+ my ($status, $value) =
$self->[TH_REPOSITORY]->attribute_fetch( $self->[TH_READ_ID],
$self->[TH_ATTRIBUTE]
);
@@ -112,7 +112,7 @@ sub NEXTKEY {
return ();
}
- my ($status, $value) =
+ my ($status, $value) =
$self->[TH_REPOSITORY]->attribute_fetch( $self->[TH_READ_ID],
$self->[TH_ATTRIBUTE]
);
View
8 lib/POE/Kernel.pm
@@ -675,7 +675,7 @@ sub new {
$poe_main_window->OnDestroy( \&signal_ui_destroy );
} # include
-
+
my $self = $poe_kernel = bless
[ \%kr_sessions, # KR_SESSIONS
\@kr_vectors, # KR_VECTORS
@@ -1525,9 +1525,9 @@ sub run {
# Otherwise, dispatch more FIFO events until $stop_time is
# reached.
last unless time() < $stop_time;
-
+
} else { # include
-
+
# If Time::HiRes isn't available, then the fairest thing to do
# is loop immediately.
last;
@@ -2222,7 +2222,7 @@ sub _enqueue_alarm {
# higher keys until the midpoint points to an element with a
# higher key. Insert the new state before it.
$midpoint++
- while ( ($midpoint < @kr_alarms)
+ while ( ($midpoint < @kr_alarms)
and ($time == $kr_alarms[$midpoint]->[ST_TIME])
);
splice @kr_alarms, $midpoint, 0, {% state_to_enqueue %};
View
2 lib/POE/NFA.pm
@@ -209,7 +209,7 @@ sub _invoke_state {
"in state '$new_state'\n"
)
unless ( not defined $enter_event or
- ( length $enter_event and
+ ( length $enter_event and
exists $self->[SELF_STATES]->{$new_state}->{$enter_event}
)
);
View
4 lib/POE/Pipe/OneWay.pm
@@ -29,7 +29,7 @@ sub new {
if ( (not defined $conduit_type) or
($conduit_type eq 'pipe')
) {
-
+
# Try using pipe, but don't bother on systems that don't support
# nonblocking pipes. Even if they support pipes themselves.
unless (RUNNING_IN_HELL) {
@@ -93,7 +93,7 @@ sub new {
# Try using a pair of plain INET domain sockets. Usurp SIGALRM
# in case it blocks. Normally POE programs don't use SIGALRM
# anyway. [fingers crossed here]
- my $old_sig_alarm = $SIG{ALRM};
+ my $old_sig_alarm = $SIG{ALRM} || 'DEFAULT';
eval {
local $SIG{ALRM} = sub { die "deadlock" };
eval 'alarm(1)' unless RUNNING_IN_HELL;
View
4 lib/POE/Pipe/TwoWay.pm
@@ -60,7 +60,7 @@ sub new {
if ( (not defined $conduit_type) or
($conduit_type eq 'pipe')
) {
-
+
# Try using pipe, but don't bother on systems that don't support
# nonblocking pipes. Even if they support pipes themselves.
unless (RUNNING_IN_HELL) {
@@ -99,7 +99,7 @@ sub new {
# Try using a pair of plain INET domain sockets. Usurp SIGALRM
# in case it blocks. Normally POE programs don't use SIGALRM
# anyway. [fingers crossed here]
- my $old_sig_alarm = $SIG{ALRM};
+ my $old_sig_alarm = $SIG{ALRM} || 'DEFAULT';
eval {
local $SIG{ALRM} = sub { die "deadlock" };
eval 'alarm(1)' unless RUNNING_IN_HELL;
View
9 lib/POE/Session.pm
@@ -1210,14 +1210,23 @@ These are the @_ fields that make up a session's runtime context.
=over 2
=item ARG0
+
=item ARG1
+
=item ARG2
+
=item ARG3
+
=item ARG4
+
=item ARG5
+
=item ARG6
+
=item ARG7
+
=item ARG8
+
=item ARG9
C<ARG0..ARG9> are a state's first ten custom parameters. They will
View
4 lib/POE/Wheel/ReadWrite.pm
@@ -573,7 +573,9 @@ memory.
event() is covered in the POE::Wheel manpage.
=item set_filter POE_FILTER
+
=item set_input_filter POE_FILTER
+
=item set_output_filter POE_FILTER
set_input_filter() changes the filter a wheel uses for reading.
@@ -591,6 +593,7 @@ The HTTPD filter does not support get_pending(), and it will complain
if a program tries to switch away from one.
=item set_high_mark HIGH_MARK_OCTETS
+
=item set_low_mark LOW_MARK_OCTETS
These methods set a wheel's high- and low-water marks. New values
@@ -667,6 +670,7 @@ A sample ErrorState event handler:
}
=item HighState
+
=item LowState
ReadWrite emits a HighState event when a wheel's pending output queue
View
7 lib/POE/Wheel/Run.pm
@@ -663,8 +663,11 @@ process. It may either be 'pipe' (the default), or 'pty'.
Pty conduits require the IO::Pty module.
=item ErrorEvent
+
=item StdinEvent
+
=item StdoutEvent
+
=item StderrEvent
C<ErrorEvent> contains the name of an event to emit if something
@@ -681,8 +684,11 @@ Wheel::Run emits whenever the child process writes something to its
STDOUT or STDERR handles, respectively.
=item Filter
+
=item StdinFilter
+
=item StdoutFilter
+
=item StderrFilter
C<Filter> contains a reference to a POE::Filter class that describes
@@ -806,6 +812,7 @@ child's STDIN handle.
StdinEvent's C<ARG0> parameter contains its wheel's unique ID.
=item StdoutEvent
+
=item StderrEvent
StdoutEvent and StderrEvent contain names for events that Wheel::Run

0 comments on commit 6f47304

Please sign in to comment.
Something went wrong with that request. Please try again.