view release on metacpan or  search on metacpan

lib/Geo/LibProj/cs2cs.pm  view on Meta::CPAN

	my $self = bless {}, $class;
	
	my $params = { %PARAMS, defined $user_params ? %$user_params : () };
	$self->_special_params($params);
	$self->{format_in} = $FORMAT_IN;
	
	# assemble cs2cs call line
	for my $key (keys %$params) {
		delete $params->{$key} unless defined $params->{$key};
	}
	my @source_crs = split m/ /, $source_crs // 'undef';
	my @target_crs = split m/ /, $target_crs // 'undef';
	$self->{cmd} = $self->_cmd();
	$self->{call} = [$self->{cmd}, %$params, @source_crs, '+to', @target_crs, '-'];
	
	$self->_ffi_init($source_crs, $target_crs, $params);
	
	return $self;
}


sub _special_params {