From 134989a2d884020c60348738273a56aed30c725e Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 16 Aug 2007 19:11:38 -0500
Subject: clean up the pod stuff

---
 lib/IO/Pty/Easy.pm | 117 +++++++++++++++++++++++++++++++++++++----------------
 1 file changed, 83 insertions(+), 34 deletions(-)

diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm
index 3faece4..6f4dd48 100644
--- a/lib/IO/Pty/Easy.pm
+++ b/lib/IO/Pty/Easy.pm
@@ -3,8 +3,37 @@ use warnings;
 use strict;
 use IO::Pty;
 
+=head1 NAME
+
+IO::Pty::Easy - ???
+
+=head1 VERSION
+
+Version 0.01 released ???
+
+=cut
+
 our $VERSION = '0.01';
 
+=head1 SYNOPSIS
+
+    use IO::Pty::Easy;
+    do_stuff();
+
+=head1 DESCRIPTION
+
+=cut
+
+=head1 CONSTRUCTOR
+
+=head2 new()
+
+=over 4
+
+=back
+
+=cut
+
 sub new {
     my $class = shift;
     my $self = {
@@ -26,6 +55,16 @@ sub new {
     return $self;
 }
 
+=head1 METHODS
+
+=head2 spawn()
+
+=over 4
+
+=back
+
+=cut
+
 sub spawn {
     my $self = shift;
     my $slave = $self->{pty}->slave;
@@ -90,13 +129,20 @@ sub spawn {
     $winch = sub {
         $self->{pty}->slave->clone_winsize_from(\*STDIN);
         kill WINCH => $self->{pid} if $self->is_active;
-        # XXX: does this work?
         $SIG{WINCH} = $winch;
     };
     $SIG{WINCH} = $winch if $self->{handle_pty_size};
     $SIG{CHLD} = sub { $self->{pid} = undef; wait };
 }
 
+=head2 read()
+
+=over 4
+
+=back
+
+=cut
+
 sub read {
     my $self = shift;
     return 0 unless $self->is_active;
@@ -113,6 +159,14 @@ sub read {
     return $nchars;
 }
 
+=head2 write()
+
+=over 4
+
+=back
+
+=cut
+
 sub write {
     my $self = shift;
     return 0 unless $self->is_active;
@@ -129,12 +183,28 @@ sub write {
     return $nchars;
 }
 
+=head2 is_active()
+
+=over 4
+
+=back
+
+=cut
+
 sub is_active {
     my $self = shift;
 
     return defined($self->{pid});
 }
 
+=head2 kill()
+
+=over 4
+
+=back
+
+=cut
+
 sub kill {
     my $self = shift;
 
@@ -142,6 +212,14 @@ sub kill {
     kill TERM => $self->{pid} if $self->is_active;
 }
 
+=head2 close()
+
+=over 4
+
+=back
+
+=cut
+
 sub close {
     my $self = shift;
 
@@ -150,42 +228,14 @@ sub close {
     $self->{pty} = undef;
 }
 
-1;
-#!perl
-package IO::Pty::Easy;
-use strict;
-use warnings;
-
-
-
-=head1 NAME
-
-IO::Pty::Easy - ???
-
-=head1 VERSION
-
-Version 0.01 released ???
-
-=cut
-
-our $VERSION = '0.01';
-
-=head1 SYNOPSIS
-
-    use IO::Pty::Easy;
-    do_stuff();
-
-=head1 DESCRIPTION
-
-
-
 =head1 SEE ALSO
 
-L<Foo::Bar>
+L<IO::Pty>
+L<Expect>
 
 =head1 AUTHOR
 
-Shawn M Moore, C<< <sartak at gmail.com> >>
+Jesse Luehrs, C<< <jluehrs2 at uiuc dot edu> >>
 
 =head1 BUGS
 
@@ -225,7 +275,7 @@ L<http://search.cpan.org/dist/IO-Pty-Easy>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2007 Shawn M Moore.
+Copyright 2007 Jesse Luehrs.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.
@@ -233,4 +283,3 @@ under the same terms as Perl itself.
 =cut
 
 1;
-
-- 
cgit v1.2.3-54-g00ecf