view release on metacpan or  search on metacpan

eg/passes  view on Meta::CPAN

This option specifies the effective horizon in degrees above (or below,
if negative) the geometric horizon.

The default is 0.

=item -join joining_string

This option specifies the string to be inserted between events in the
output. This string is run through the templating system before use, but
the only supported characters after a percent sign are 't' to insert a
horizontal tab, 'n' to insert a newline, and '%' to insert a literal
percent sign.  The results of using any other character after a percent
sign are undefined.

The default is '%n%t' (that is, a newline followed by a horizontal tab).

=item -latitude degrees_north_of_equator

This option specifies the observer's latitude in degrees. South
latitudes are negative.

This option must be specified. There is no default.

lib/Astro/Coord/ECI/Utils.pm  view on Meta::CPAN

	'D'	=> 'm/%%d/%%y',
	'F'	=> 'Y-%%m-%%d',
	'r'	=> 'I:%%M:%%S%s %%p',
	'R'	=> 'H:%%M',
	'S'	=> 'S%s',
	'T'	=> 'H:%%M:%%S%s',
	'V'	=> 'e-%%b-%%Y',
    );

    sub _pre_strftime_mung_fmt {
	my ( $percent, $places, $fmt, $frac, $dflt_places ) = @_;
	length( $percent ) % 2
	    and $mung{$fmt}
	    or return "$percent$places$fmt";
	my $f = '';
	defined $places
	    or $places = $dflt_places;
	if ( defined $places ) {
	    index( $places, '.' ) == 0
		or substr $places, 0, 0, '.';
	    $places eq '.'
		and $places = '';
	    $f = sprintf "%${places}f", $frac;
	    $f =~ s/ \A 0+ //smx;
	}
	return $percent . __sprintf( $mung{$fmt}, $f );
    }
}

sub __sprintf {
    my ( $tplt, @args ) = @_;
    defined $tplt
	or return undef;	## no critic (ProhibitExplicitReturnUndef)
    no if $] gt '5.021002', qw{ warnings redundant };
    return sprintf $tplt, @args;
}