Tie::Alias::Handle - required by Tie::Alias::TIEHANDLE

Tie-Alias-Handle documentation Contained in the Tie-Alias-Handle distribution.

Index

Code Index:

NAME

Top

Tie::Alias::Handle - required by Tie::Alias::TIEHANDLE

DESCRIPTION

Top

This module holds a single error message, suggesting that the user append an ampersand to their mode string to duplicate a handle: handles already have a robust aliasing mechanism.

BUGS

Top

Buffers may get duplicated when you duplicate file handles, also a new handle is opened instead of aliasing to a handle, so this doesn't really work to provide an alias like the other Tie::Alias modules at this time. Future releases will be complete, hopefully. Perhaps one of the file handle team will adopt this module.

SEE ALSO

Top

l<Tie::Alias> l<perltie> l<open>

Tie-Alias-Handle documentation Contained in the Tie-Alias-Handle distribution. 
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__