view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/messages/message_director.pm  view on Meta::CPAN

package App::SeismicUnixGui::messages::message_director;

use Moose;
our $VERSION = '0.0.1';
use aliased 'App::SeismicUnixGui::messages::FileDialog_button_messages';
use aliased 'App::SeismicUnixGui::messages::FileDialog_close_messages';
# use aliased 'App::SeismicUnixGui::messages::backup_project_selector_messages';
use aliased 'App::SeismicUnixGui::messages::color_listbox_messages';
use aliased 'App::SeismicUnixGui::messages::help_button_messages';
use aliased 'App::SeismicUnixGui::misc::save_button_messages';
use aliased 'App::SeismicUnixGui::messages::flows_messages';
use aliased 'App::SeismicUnixGui::messages::immodpg_messages';
use aliased 'App::SeismicUnixGui::messages::iPick_messages';
use aliased 'App::SeismicUnixGui::messages::run_button_messages';
use aliased 'App::SeismicUnixGui::messages::null_messages';
use aliased 'App::SeismicUnixGui::messages::project_selector_messages';
use aliased 'App::SeismicUnixGui::messages::superflow_messages';

my $flows             = flows_messages->new();
my $FileDialog_button = FileDialog_button_messages->new();
my $FileDialog_close  = FileDialog_button_messages->new();
# my $backup_project_selector  = backup_project_selector_messages->new();
my $help_button       = help_button_messages->new();
my $run_button        = run_button_messages->new();
my $save_button       = save_button_messages->new();
my $superflow         = superflow_messages->new();
my $null              = null_messages->new();
my $project_selector  = project_selector_messages->new();
my $iPick             = iPick_messages->new();
my $immodpg			  = immodpg_messages->new();
my $color_listbox	  = color_listbox_messages->new();

=head1 DOCUMENTATION

=head2 SYNOPSIS 
PERL PROGRAM NAME: message_director 
 AUTHOR: Juan Lorenzo
         Nov 21 2017 

 DESCRIPTION: 
 Version: 1.0

 Messages to user in L_SU

=head2 USE

=head3 NOTES 

=head4 
 Examples

=head3 SEISMIC UNIX NOTES  

=head4 CHANGES and their DATES

=cut

=head2 private hash 

 
=cut

my $message_director = {
    _cdp_num       => '',
    _gather_num    => '',
    _gather_type   => '',
    _gather_header => '',
    _type          => '',
    _instructions  => ''
};

=head2 subroutine clear

  sets all variable strings to '' 

=cut

sub clear {

    $message_director->{_cdp_num}       = '';
    $message_director->{_gather_num}    = '';
    $message_director->{_gather_type}   = '';