view release on metacpan or  search on metacpan

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

85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
               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]);
}