summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Date/Language.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Date/Language.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/Date/Language.pm144
1 files changed, 0 insertions, 144 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Date/Language.pm b/Master/tlpkg/tlperl/site/lib/Date/Language.pm
deleted file mode 100644
index 02a05e7186b..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Date/Language.pm
+++ /dev/null
@@ -1,144 +0,0 @@
-
-package Date::Language;
-
-use strict;
-use Time::Local;
-use Carp;
-use vars qw($VERSION @ISA);
-require Date::Format;
-
-$VERSION = "1.10";
-@ISA = qw(Date::Format::Generic);
-
-sub new
-{
- my $self = shift;
- my $type = shift || $self;
-
- $type =~ s/^(\w+)$/Date::Language::$1/;
-
- croak "Bad language"
- unless $type =~ /^[\w:]+$/;
-
- eval "require $type"
- or croak $@;
-
- bless [], $type;
-}
-
-# Stop AUTOLOAD being called ;-)
-sub DESTROY {}
-
-sub AUTOLOAD
-{
- use vars qw($AUTOLOAD);
-
- if($AUTOLOAD =~ /::strptime\Z/o)
- {
- my $self = $_[0];
- my $type = ref($self) || $self;
- require Date::Parse;
-
- no strict 'refs';
- *{"${type}::strptime"} = Date::Parse::gen_parser(
- \%{"${type}::DoW"},
- \%{"${type}::MoY"},
- \@{"${type}::Dsuf"},
- 1);
-
- goto &{"${type}::strptime"};
- }
-
- croak "Undefined method &$AUTOLOAD called";
-}
-
-sub str2time
-{
- my $me = shift;
- my @t = $me->strptime(@_);
-
- return undef
- unless @t;
-
- my($ss,$mm,$hh,$day,$month,$year,$zone) = @t;
- my @lt = localtime(time);
-
- $hh ||= 0;
- $mm ||= 0;
- $ss ||= 0;
-
- $month = $lt[4]
- unless(defined $month);
-
- $day = $lt[3]
- unless(defined $day);
-
- $year = ($month > $lt[4]) ? ($lt[5] - 1) : $lt[5]
- unless(defined $year);
-
- return defined $zone ? timegm($ss,$mm,$hh,$day,$month,$year) - $zone
- : timelocal($ss,$mm,$hh,$day,$month,$year);
-}
-
-1;
-
-__END__
-
-
-=head1 NAME
-
-Date::Language - Language specific date formating and parsing
-
-=head1 SYNOPSIS
-
- use Date::Language;
-
- my $lang = Date::Language->new('German');
- $lang->time2str("%a %b %e %T %Y\n", time);
-
-=head1 DESCRIPTION
-
-L<Date::Language> provides objects to parse and format dates for specific languages. Available languages are
-
- Afar French Russian_cp1251
- Amharic Gedeo Russian_koi8r
- Austrian German Sidama
- Brazilian Greek Somali
- Chinese Hungarian Spanish
- Chinese_GB Icelandic Swedish
- Czech Italian Tigrinya
- Danish Norwegian TigrinyaEritrean
- Dutch Oromo TigrinyaEthiopian
- English Romanian Turkish
- Finnish Russian Bulgarian
-
-=head1 METHODS
-
-=over
-
-=item time2str
-
-See L<Date::Format/time2str>
-
-=item strftime
-
-See L<Date::Format/strftime>
-
-=item ctime
-
-See L<Date::Format/ctime>
-
-=item asctime
-
-See L<Date::Format/asctime>
-
-=item str2time
-
-See L<Date::Parse/str2time>
-
-=item strptime
-
-See L<Date::Parse/strptime>
-
-=back
-