File Coverage

blib/lib/DateTime/TimeZone/Local/hpux.pm

Criterion	Covered	Total	%
statement	24	36	66.6
branch	5	14	35.7
condition	1	3	33.3
subroutine	9	9	100.0
pod	1	1	100.0
total	40	63	63.4

package DateTime::TimeZone::Local::hpux;

use strict;
use warnings;

# Debugging flags, used in the testsuite
BEGIN {
    defined &SKIP_ETC_TIMEZONE or *SKIP_ETC_TIMEZONE = sub () { 0 };
    defined &SKIP_JAVA or *SKIP_JAVA = sub () { 0 };
}



use base 'DateTime::TimeZone::Local';
use DateTime::TimeZone::HPUX;

sub Methods
{
    qw( _FromEnv _FromEtcTIMEZONE _FromJava )
}

# TODO Build the full timezone database from /usr/lib/tztab
sub _FromEnv
{
    return unless exists $ENV{TZ};
    DateTime::TimeZone::HPUX::_hpux_to_olson($ENV{TZ})
}

sub _FromEtcTIMEZONE
{
    return if SKIP_ETC_TIMEZONE;

    my $tz_file = '/etc/TIMEZONE';

    return unless -f $tz_file && -r _;

    local *TZ;
    open TZ, "<$tz_file"
        or die "Cannot read $tz_file: $!";

    my $name;
    while ( defined( $name =  ) )
    {
        if ( $name =~ /\A\s*TZ\s*=\s*(\S+)/ )
        {
            $name = $1;
            last;
        }
    }
    close TZ;

    DateTime::TimeZone::HPUX::_hpux_to_olson($name)
}

# Retrieve the default timezone using Java (java.util.TimeZone.getDefault())
sub _FromJava
{
    return if SKIP_JAVA;
    warn('Retrieving default timezone using Java (SLOOOOOW)... You should instead set $ENV{TZ}');
    my $tz_name = DateTime::TimeZone::HPUX::_olson_from_java();
    return unless defined $tz_name;

    # Build a DT::TZ object from the name returned by Java
    local $@;
    return eval { DateTime::TimeZone->new(name => $tz_name) };
}


1;
__END__