view release on metacpan or  search on metacpan

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

=head2 set_first_name

=cut

sub set_first_name {

	my ($self) = @_;
	my ( $first_name, $suffix, $file_name );

	# split by the escaped period
	$file_name = $control->{_file_name};
	( $first_name, $suffix ) = split( /\./, $file_name );
	$control->{_first_name} = $first_name;

	# print("control,set_first_name,is: $control->{_first_name}\n");
	return ();
}

=head sub set_first_name_string

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

	my ($self) = @_;

	#	my ( $first_name, $suffix, $file_name );

	if ( length $control->{_file_name} ) {

		my $first_name;
		my $suffix;

		# print("control,file_name,is: $control->{_file_name}\n");
		# split by the escaped period
		my $file_name = $control->{_file_name};
		( $first_name, $suffix ) = split( /\./, $file_name );
		$control->{_first_name} = $first_name;

		# print("control,first_name,is: $first_name\n");
		# print("control,suffix,is: $suffix\n");

		if ( !($suffix) ) {
			$suffix = '';
		}