summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-07-07 00:03:39 -0500
committerJesse Luehrs <doy@tozt.net>2009-07-07 00:07:41 -0500
commit6a965b3edb3eb82e9def95f4fa9596706f9ba953 (patch)
tree2fdfa44f8491dd74261ff64e464d5f43d5ba1c91
parente40557c2e2994d5f86a8ae46ad64f5a4a2cf62f0 (diff)
downloadio-pty-easy-6a965b3edb3eb82e9def95f4fa9596706f9ba953.tar.gz
io-pty-easy-6a965b3edb3eb82e9def95f4fa9596706f9ba953.zip
remove vim fold markers
-rw-r--r--lib/IO/Pty/Easy.pm42
1 files changed, 0 insertions, 42 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm
index 79d7f44..6564eca 100644
--- a/lib/IO/Pty/Easy.pm
+++ b/lib/IO/Pty/Easy.pm
@@ -5,8 +5,6 @@ use base 'IO::Pty';
use Carp;
use POSIX ();
-# Intro documentation {{{
-
=head1 NAME
IO::Pty::Easy - Easy interface to IO::Pty
@@ -39,14 +37,10 @@ C<IO::Pty::Easy> uses L<IO::Pty> internally, so it inherits all of the portabili
=cut
-# }}}
-
=head1 CONSTRUCTOR
=cut
-# new() {{{
-
=head2 new()
The C<new> constructor initializes the pty and returns a new C<IO::Pty::Easy> object. The constructor recognizes these parameters:
@@ -93,14 +87,11 @@ sub new {
return $self;
}
-# }}}
=head1 METHODS
=cut
-# spawn() {{{
-
=head2 spawn()
Fork a new subprocess, with stdin/stdout/stderr tied to the pty.
@@ -182,9 +173,6 @@ sub spawn {
};
$SIG{WINCH} = $winch if $self->handle_pty_size;
}
-# }}}
-
-# read() {{{
=head2 read()
@@ -216,9 +204,6 @@ sub read {
}
return $buf;
}
-# }}}
-
-# write() {{{
=head2 write()
@@ -243,9 +228,6 @@ sub write {
}
return $nchars;
}
-# }}}
-
-# is_active() {{{
=head2 is_active()
@@ -279,9 +261,6 @@ sub is_active {
}
return $active;
}
-# }}}
-
-# kill() {{{
=head2 kill()
@@ -303,9 +282,6 @@ sub kill {
return $kills;
}
-# }}}
-
-# close() {{{
=head2 close()
@@ -319,9 +295,6 @@ sub close {
$self->kill;
close $self;
}
-# }}}
-
-# handle_pty_size() {{{
=head2 handle_pty_size()
@@ -335,9 +308,6 @@ sub handle_pty_size {
${*{$self}}{io_pty_easy_handle_pty_size} = $_[0] if @_;
${*{$self}}{io_pty_easy_handle_pty_size};
}
-# }}}
-
-# def_max_read_chars() {{{
=head2 def_max_read_chars()
@@ -351,9 +321,6 @@ sub def_max_read_chars {
${*{$self}}{io_pty_easy_def_max_read_chars} = $_[0] if @_;
${*{$self}}{io_pty_easy_def_max_read_chars};
}
-# }}}
-
-# pid() {{{
=head2 pid()
@@ -366,26 +333,19 @@ sub pid {
my $self = shift;
${*{$self}}{io_pty_easy_pid};
}
-# }}}
-# _wait_for_inactive() {{{
sub _wait_for_inactive {
my $self = shift;
select(undef, undef, undef, 0.01) while $self->is_active;
}
-# }}}
-# DESTROY {{{
sub DESTROY {
my $self = shift;
local $@;
local $?;
$self->close;
}
-# }}}
-
-# Ending documentation {{{
=head1 SEE ALSO
@@ -446,6 +406,4 @@ under the same terms as Perl itself.
=cut
-# }}}
-
1;