view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iSave_top_mute_picks.pm  view on Meta::CPAN

package App::SeismicUnixGui::big_streams::iSave_top_mute_picks;

use Moose;
our $VERSION = '0.0.1';

=head1 DOCUMENTATION

=head2 SYNOPSIS 

 PROGRAM NAME:iSave_top_mute_picks.pm
 AUTHOR:  Juan Lorenzo
 DATE:   September 2015  
 Version: 3.0 

 DESCRIPTION:Originally to Save final Top Mute of Data

=head2 USE

=head4 

 Examples

=head2 SEISMIC UNIX NOTES

=head4 CHANGES and their DATES

 V1 May 5 2009 
 V2. change top mute parameters to toptom mute parameters
 Aug 12, 2011
 V3.0 September 2015 :
          updated to oop
          introduced Tk widgets
          Made all event-driven

=head2 STEPS

  use the local library of the user
  bring is user variables from a local file
  create instances of the needed subroutines

=cut

=head2 

 needed packages

=cut

use aliased 'App::SeismicUnixGui::misc::message';
use aliased 'App::SeismicUnixGui::misc::flow';
use aliased 'App::SeismicUnixGui::sunix::shell::cp';
use aliased 'App::SeismicUnixGui::configs::big_streams::Project_config';
use App::SeismicUnixGui::misc::SeismicUnix qw($itemp_top_mute_picks_sorted_par_
  $itop_mute_file_list $itop_mute_par_ $suffix_txt);

=head2

 instantiate classes

=cut

my $log     = message->new();
my $run     = flow->new();
my $cp      = cp->new();
my $Project = Project_config->new();

=head2
 
 declare variables types
 establish just the locally scoped variables

=cut

my ( @flow, @cp, @items );

=head2

 create hash with important variables

=cut

my $iSave_top_mute_picks = {
	_gather_num          => '',
	_gather_type         => '',
	_gather_header       => '',
	_file_in             => '',
	_inbound             => '',
	_itop_mute_file_list => $itop_mute_file_list,
	_outbound            => ''
};