local-lib5/lib/perl5/DateTime/TimeZone/Local/VMS.pm

   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