#!/usr/bin/env perl
package Subtle;
sub new {
	my $test;
	$test = \$test;
	warn "CREATING " . \$test;
	return bless \$test;
}
sub DESTROY {
	my $self = shift;
	warn "DESTROYING $self";
}

package main;
    
warn "starting program";
{
	my $a = Subtle->new;
	my $b = Subtle->new;
	$$a = 0;  # break selfref
	warn "leaving block";
}
warn "just exited block";
warn "time to die...";
	
	
	
use Smart::Comments;
use Ring;
$COUNT = 10;
for (1 .. 3) {
 my $r = Ring->new();
 for ($i = 0; $i < $COUNT; $i++) { $r->insert_value($i) }
 ### $r
}
exit 1;