contrib/perl5/lib/Time/tm.pm

   1 package Time::tm;
   2 use strict;
   3
   4 use Class::Struct qw(struct);
   5 struct('Time::tm' => [
   6      map { $_ => '$' } qw{ sec min hour mday mon year wday yday isdst }
   7 ]);
   8
   9 1;
  10 __END__
  11
  12 =head1 NAME
  13
  14 Time::tm - internal object used by Time::gmtime and Time::localtime
  15
  16 =head1 SYNOPSIS
  17
  18 Don't use this module directly.
  19
  20 =head1 DESCRIPTION
  21
  22 This module is used internally as a base class by Time::localtime And
  23 Time::gmtime functions.  It creates a Time::tm struct object which is
  24 addressable just like's C's tm structure from F<time.h>; namely with sec,
  25 min, hour, mday, mon, year, wday, yday, and isdst.
  26
  27 This class is an internal interface only.
  28
  29 =head1 AUTHOR
  30
  31 Tom Christiansen