diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-07-07 00:03:39 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-07-07 00:07:41 -0500 |
commit | 6a965b3edb3eb82e9def95f4fa9596706f9ba953 (patch) | |
tree | 2fdfa44f8491dd74261ff64e464d5f43d5ba1c91 | |
parent | e40557c2e2994d5f86a8ae46ad64f5a4a2cf62f0 (diff) | |
download | io-pty-easy-6a965b3edb3eb82e9def95f4fa9596706f9ba953.tar.gz io-pty-easy-6a965b3edb3eb82e9def95f4fa9596706f9ba953.zip |
remove vim fold markers
-rw-r--r-- | lib/IO/Pty/Easy.pm | 42 |
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; |