view release on metacpan or  search on metacpan

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

package App::SeismicUnixGui::misc::message;

=head1 DOCUMENTATION

=head2 SYNOPSIS 

 PACKAGE NAME: message 
 AUTHOR:  Juan Lorenzo
 DATE:   July 25 2015
 DESCRIPTION: 
 Version: 0.0.1

=head2 USE

=head3 NOTES
 communicate information to user 

=head4 
 Examples

=head3 UNIX NOTES  
=head4 CHANGES and their DATES
V0.0.2 April 4, 2020


=cut

=head2 Declare
Modules

=cut

use Moose;
our $VERSION = '0.0.2';
use aliased 'App::SeismicUnixGui::misc::L_SU_global_constants';
#use namespace::autoclean;    # best-practices hygiene
use aliased 'App::SeismicUnixGui::configs::big_streams::Project_config';

=head2 Instantiation

=cut

my $Project     = Project_config->new();
my $get         = L_SU_global_constants->new();

=head2 Declare
local variables

=cut

my $var                 = $get->var();
my $log_file_txt        = $var->{_log_file_txt};
my $test_dir_name 		= $var->{_test_dir_name};
my $PL_SEISMIC          = $Project->PL_SEISMIC();

=head2 Defaults

=cut

my $PATH_start               = 	$PL_SEISMIC;
my $file_name_start          = $log_file_txt;
my $number_of_messages_start = 2;
my $message_start            = 'hi';

=head2 sub default_message_aref

Initialize array 

=cut

sub _default_message_aref_start {

	my ($self) = @_;

	my @message = (
		$message_start,
		$message_start,
	);

	my $message_aref = \@message;
	return ($message_aref);

}

=head2 private anonymous array

=cut

my $message = {
	_text         => '',
	_this_package => '',

};

sub BUILD {
	my ($this_package_address) = @_;