view release on metacpan or  search on metacpan

lib/IO/Handle/Rewind.pm  view on Meta::CPAN

               formline format_write fcntl ioctl constant
               printflush);

__PACKAGE__->_delegate(@meths);

sub new {
  my ($class, $obj, $opt) = @_;
  
  $obj->isa('IO::Handle') or croak "Can't wrap non-IO::Handle object: $obj";

  my $self = bless {} => $class;

  $self->obj($obj);
 
  return $self;
}

sub rewind {
  my ($self, @lines) = @_;
  $self->rewound([@lines]);
}