view release on metacpan or  search on metacpan

eg/xml  view on Meta::CPAN

    visible	=> $opt{more} < 2,
);

# Compute the passes.

my @passes = $iss->pass( $start_time, $start_time + $days * 86400 );

# Put the output into UTF-8 mode, since that is what we intend to use.
# This gets eval'ed to hide it if we're using Perl 5.6.

$] ge '5.008'
    and eval "binmode STDOUT, ':encoding(utf-8)'";

# Now fire up the XML generator.

my $xw = XML::Writer->new(
    DATA_MODE	=> $opt{pretty},
    DATA_INDENT => 4,
    ENCODING	=> 'utf-8',
);

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

	    $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;
}

{
    my %deprecate = (
	epoch2datetime	=> {
	    level	=> 0,
	    method	=> 'core subroutine gmtime',
	},
	date2epoch	=> {