1package DateTime::TimeZone::Local::VMS; 2 3use strict; 4use warnings; 5 6use base 'DateTime::TimeZone::Local'; 7 8 9sub Methods { return qw( FromEnv ) } 10 11sub EnvVars { return qw( TZ SYS$TIMEZONE_RULE SYS$TIMEZONE_NAME UCX$TZ TCPIP$TZ ) } 12 13 141; 15 16__END__ 17 18=head1 NAME 19 20DateTime::TimeZone::Local::VMS - Determine the local system's time zone on VMS 21 22=head1 SYNOPSIS 23 24 my $tz = DateTime::TimeZone->new( name => 'local' ); 25 26 my $tz = DateTime::TimeZone::Local->TimeZone(); 27 28=head1 DESCRIPTION 29 30This module provides methods for determining the local time zone on a 31VMS platform. 32 33NOTE: This is basically a stub pending an implementation by someone 34who knows something about VMS. 35 36=head1 HOW THE TIME ZONE IS DETERMINED 37 38This class tries the following methods of determining the local time 39zone: 40 41=over 4 42 43=item * %ENV 44 45We check the following environment variables: 46 47=over 8 48 49=item * TZ 50 51=item * SYS$TIMEZONE_RULE 52 53=item * SYS$TIMEZONE_NAME 54 55=item * UCX$TZ 56 57=item * TCPIP$TZ 58 59=back 60 61=back 62 63=head1 AUTHOR 64 65Dave Rolsky, <autarch@urth.org> 66 67=head1 COPYRIGHT & LICENSE 68 69Copyright (c) 2003-2008 David Rolsky. All rights reserved. This 70program is free software; you can redistribute it and/or modify it 71under the same terms as Perl itself. 72 73The full text of the license can be found in the LICENSE file included 74with this module. 75 76=cut 77