File Coverage

blib/lib/MemHandle.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch			n/a
condition	1	2	50.0
subroutine	8	9	88.8
pod	4	4	100.0
total	40	45	88.8

package MemHandle;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require IO::Handle;
require IO::Seekable;
use Symbol;
use MemHandle::Tie;

require Exporter;
use 5.000;

@ISA = qw(IO::Handle IO::Seekable Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(

);
$VERSION = '0.07';


# Preloaded methods go here.
sub new {
    my( $class, $mem ) = @_;
    $class = ref( $class ) || $class || 'MemHandle';
    my $fh = gensym;

    ${*$fh} = tie *$fh, 'MemHandle::Tie', $mem;

    bless $fh, $class;
}

sub seek {
    my $fh = shift;
    ${*$fh}->SEEK( @_ );
}

sub tell {
    my $fh = shift;
    ${*$fh}->TELL( @_ );
}

sub mem {
    my $fh = shift;
    ${*$fh}->mem( @_ );
}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__