File Coverage

blib/lib/Data/Handle/IO.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	18	18	100.0
pod			n/a
total	43	43	100.0

use strict;
use warnings;

package Data::Handle::IO;
BEGIN {
  $Data::Handle::IO::AUTHORITY = 'cpan:KENTNL';
}
{
  $Data::Handle::IO::VERSION = '0.02001003';
}

# ABSTRACT: A Tie Package so Data::Handle can look and feel like a normal handle.
#


sub TIEHANDLE {
  my $self   = shift;
  my $object = shift;
  return bless $object, $self;
}

sub _object {
  my $self = shift;
  return $self->{self};
}

## no critic (ProtectPrivateSubs)

sub READLINE { return shift->_object->_readline(@_) }
sub READ     { return shift->_object->_read(@_) }
sub GETC     { return shift->_object->_getc(@_) }
sub WRITE    { return shift->_object->_write(@_) }
sub PRINT    { return shift->_object->_print(@_) }
sub PRINTF   { return shift->_object->_printf(@_) }
sub EOF      { return shift->_object->_eof(@_) }
sub CLOSE    { return shift->_object->_close(@_) }
sub BINMODE  { return shift->_object->_binmode(@_) }
sub OPEN     { return shift->_object->_open(@_) }
sub FILENO   { return shift->_object->_fileno(@_) }
sub SEEK     { return shift->_object->_seek(@_) }
sub TELL     { return shift->_object->_tell(@_) }

1;

__END__