package HardThread;

use strict;
use warnings;
use threads;
use threads::shared;
use vars qw( $internal );

## Variable declaration for internal functions
my ( $thread );

sub new {
	my $class = shift;
	my $inter : shared = shared_clone({});
	$inter->{INT1}	= "internal 1";
	$inter->{INT2}	= "internal 2";
	$inter->{INT3}	= "internal 5"; 
	return bless( \%{$inter}, $class );
}

sub stop_thread {
	my $inter = shift;
	$inter->{THR}->kill('TERM');
	$inter->{THR}->join();
}

sub starter {
	my $inter = shift;
	$inter->{THR} = ref threads->create(sub{$thread->(\$inter->{INT1})});
	return	( 1 );
}

sub set_internal {
	my $inter = shift;
	if( @_ ) {
		my ( $given_key, $given_value ) = @_ if @_;
		$inter->{$given_key} = $given_value;
		return	( 1 );
	}
	return	( 0 );
}

sub printer {
	my $inter = shift;
	foreach my $key ( keys %{$inter} ) {
		print $key, " - ", $inter->{$key}, "\n";
	}
}

$thread = sub {
	local *internal = $_[0];
	my $control = 1;
	$SIG{'TERM'} = sub { $control = 0; };
	while( $control == 1 ) {
		print "Thread shows internal value:   ", $internal, "\n";
		sleep 2;
	}
	return	( 1 );
};

1;