view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/sunix/header/header_values.pm  view on Meta::CPAN

		print("header_values,set_header_name, missing header name\n");
	}

	return ();
}

=head2 sub get_number

=cut

sub get_number() {

	my ($self) = @_;

	if (   defined $header_values->{_base_file_name}
		&& $header_values->{_base_file_name} ne $empty_string
		&& defined $header_values->{_header_name}
		&& $header_values->{_header_name} ne $empty_string )
	{

=head2 Declare