Commit | Line | Data |
3fea05b9 |
1 | package DateTime::TimeZone::Local::VMS; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use base 'DateTime::TimeZone::Local'; |
7 | |
8 | |
9 | sub Methods { return qw( FromEnv ) } |
10 | |
11 | sub EnvVars { return qw( TZ SYS$TIMEZONE_RULE SYS$TIMEZONE_NAME UCX$TZ TCPIP$TZ ) } |
12 | |
13 | |
14 | 1; |
15 | |
16 | __END__ |
17 | |
18 | =head1 NAME |
19 | |
20 | DateTime::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 | |
30 | This module provides methods for determining the local time zone on a |
31 | VMS platform. |
32 | |
33 | NOTE: This is basically a stub pending an implementation by someone |
34 | who knows something about VMS. |
35 | |
36 | =head1 HOW THE TIME ZONE IS DETERMINED |
37 | |
38 | This class tries the following methods of determining the local time |
39 | zone: |
40 | |
41 | =over 4 |
42 | |
43 | =item * %ENV |
44 | |
45 | We 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 | |
65 | Dave Rolsky, <autarch@urth.org> |
66 | |
67 | =head1 COPYRIGHT & LICENSE |
68 | |
69 | Copyright (c) 2003-2008 David Rolsky. All rights reserved. This |
70 | program is free software; you can redistribute it and/or modify it |
71 | under the same terms as Perl itself. |
72 | |
73 | The full text of the license can be found in the LICENSE file included |
74 | with this module. |
75 | |
76 | =cut |