view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/misc/gui_history.pm  view on Meta::CPAN

package App::SeismicUnixGui::misc::gui_history;

=head1 DOCUMENTATION

=head2 SYNOPSIS 

 PERL PROGRAM NAME: gui_history 
 AUTHOR: 	Juan Lorenzo
 DATE: 		September 1 2019


 DESCRIPTION 
   Global inventory of user interactions with the gui.

 BASED ON:


=cut

=head2 USE

=head3 NOTES

=head4 Examples

=head2 CHANGES and their DATES
			9-1-19 0.0.1   dabbling with refs
 			9-12-19 0.0.2
 			7.20.21 initialize some hashes

=cut 

=head2 Notes from bash
 
=cut 

#use namespace::autoclean; for later
use Moose;
our $VERSION = '0.0.2';

=head2 Import modules
potentially, all packages contain L_SU_global_constants

=cut

my $path;
my $SeismicUnixGui;

extends 'App::SeismicUnixGui::misc::conditions4flows' => { -version => 0.0.2 };
use aliased 'App::SeismicUnixGui::misc::conditions4flows';

use aliased 'App::SeismicUnixGui::misc::L_SU_global_constants';
use aliased 'App::SeismicUnixGui::misc::flow_widgets';

=head2 Instantiation

=cut

my $flow_widgets = flow_widgets->new();
my $get          = L_SU_global_constants->new();

=head2 Declare Special Variables

=cut

my $var                 = $get->var();
my $default_param_specs = $get->param();
my $on                  = $var->{_on};
my $true                = $var->{_true};
my $false               = $var->{_false};
my $empty_string        = $var->{_empty_string};
my $flow_type           = $get->flow_type_href();
my @array_ref;
my @empty_array = (0);    # length=1

my $index_start          = -1;
my $earliest_index_start = -3;
my $prior_index_start    = -2;
my $current_index_start  = -1;
my $next_index_start     = 0;

my $no_color             = 'no_color';
my $neutral              = 'neutral';
my $earliest_color_start = $no_color;
my $current_color_start  = $no_color;
my $next_color_start     = $no_color;
my $prior_color_start    = $no_color;

my $count_start = -1;

has '_count' => (
	default   => $count_start,
	is        => 'ro',
	isa       => 'Int',
	reader    => 'get_count',
	writer    => 'set_count',
	predicate => 'has_count',