package Tie::Scalar::NoCopies;

# This package compiles, runs, and implements a tied
# scalar.  But it doesn't do as it advertises... ie.,
# it doesn't suppress copies.

use strict;
use warnings;

sub TIESCALAR {
	my ( $class ) = @_; 
    my $self = {};
    $self->{VRef} = undef;
    bless $self, $class; 
}

sub STORE { 
	my $self = shift;
    $self->{VRef} = \$_[0];
    return ${$self->{VRef}};
}

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

sub DESTROY {
    my $self = shift;
}
    
1;


package main;

use strict;
use warnings;

my ($var1, $var2);


tie $var1, "Tie::Scalar::NoCopies";
tie $var2, "Tie::Scalar::NoCopies";
$var1 = 'a' x 10;
$var2 = 'b' x 10;

print "$var1\t$var2\n";

( $var1, $var2 ) = ( $var2, $var1 );

print "$var1\t$var2\n";