File Coverage

blib/lib/Astro/App/Satpass2/ParseTime/Date/Manip/v5.pm

Criterion	Covered	Total	%
statement	18	47	38.3
branch	2	26	7.6
condition	1	5	20.0
subroutine	6	12	50.0
pod	5	5	100.0
total	32	95	33.6

package Astro::App::Satpass2::ParseTime::Date::Manip::v5;

use strict;
use warnings;

use Astro::Coord::ECI::Utils 0.112 qw{
    looks_like_number greg_time_local };

use parent qw{ Astro::App::Satpass2::ParseTime::Date::Manip };

use Astro::App::Satpass2::Utils qw{ load_package @CARP_NOT };

our $VERSION = '0.051';

my $invalid;

BEGIN {
    eval {
	local $Date::Manip::Backend = 'DM5';

	load_package( 'Date::Manip' )
	    or return;

	Date::Manip->import();
	1;
    } or $invalid = ( $@ || 'Unable to load Date::Manip' );
}

my ( $default_zone ) = eval {
    grep { m{ \A TZ= }smx } Date_Init()
};

sub delegate {
    return __PACKAGE__;
}

sub parse_time_absolute {
    my ( $self, $string ) = @_;
    $invalid and $self->wail( $invalid );
    my $time = UnixDate( $string, '%s' ) - $self->__epoch_offset();
    if ( $self->perltime() ) {
	my @gt = gmtime $time;
	$gt[5] += 1900;
	$time = greg_time_local( @gt );
    }
    return $time;
}

sub perltime {
    my ( $self, @args ) = @_;
    $invalid and $self->wail( $invalid );
    if ( @args ) {
	my $zone = $args[0] ? 'GMT' : $self->tz();
	$zone = defined $zone ? "TZ=$zone" : $default_zone;
	Date_Init( $zone );
    }
    return $self->SUPER::perltime( @args );
}

sub use_perltime {
    return 1;
}

sub tz {
    my ( $self, @args ) = @_;
    $invalid and $self->wail( $invalid );
    if ( @args ) {
	if ( $args[0] || looks_like_number( $args[0] ) ) {
	    $ENV{TZ} = $args[0];	## no critic (RequireLocalizedPunctuationVars)
	    $self->perltime() or Date_Init( "TZ=$args[0]" );
	} else {
	    delete $ENV{TZ};
	    $self->perltime() or Date_Init( $default_zone );
	}
    }
    return $self->SUPER::tz( @args );
}

sub __set_back_end_location {
    return;
};

1;

=head1 NAME

Astro::App::Satpass2::ParseTime::Date::Manip::v5 - Astro::App::Satpass2 wrapper for Date::Manip v5 interface

=head1 SYNOPSIS

No user-serviceable parts inside.

=head1 DETAILS

This class wraps L version 5.54 or lower and
the C back-end for L 6.0 and higher, and
uses it to parse dates. It uses the C mechanism, since these
versions of L do not understand summer time.

=head1 METHODS

This class supports no public methods over and above those documented in
its superclass
L.

=head1 SUPPORT

Support is by the author. Please file bug reports at
L,
L, or in
electronic mail to the author.

=head1 AUTHOR

Thomas R. Wyant, III F

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2009-2023 by Thomas R. Wyant, III

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl 5.10.0. For more details, see the full text
of the licenses in the directory LICENSES.

This program is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=cut

__END__