File Coverage

lib/Data/Handle/IO.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	18	18	100.0
pod			n/a
total	45	45	100.0

use 5.006;
use strict;
use warnings;

package Data::Handle::IO;

our $VERSION = '1.000000';

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

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
















sub TIEHANDLE {
  my $self          = shift;
  my $handle_object = shift;
  return bless $handle_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__