File Coverage

blib/lib/Tie/Alias/Handle.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	0	1	0.0
total	16	21	76.1

package Tie::Alias::Handle;

use 5.008;
use strict;
use warnings;
use Carp;

our $VERSION = '0.01';

sub isAlias { 1; };

sub TIEHANDLE {

	croak "use open with a & in the mode to dup a handle"; #FIXME

     #   my ( $class , $ref ) = @_ ;
     #   ref($ref) or croak "NOT A REFERENCE";
     #   if ( eval { tied($$ref) -> isAlias } ) {
     #           # we are re-aliasing something
     #           return tied ($$ref);
     #   }else{
     #           # $ref is already a pointer to the object
     #           bless $ref, $class;
     #   };
};




1;
__END__