Date.pm (Class-Date-1.1.16) | : | Date.pm (Class-Date-1.1.17) | ||
---|---|---|---|---|
package Class::Date; | package Class::Date; | |||
our $AUTHORITY = 'cpan:YANICK'; | our $AUTHORITY = 'cpan:YANICK'; | |||
# ABSTRACT: Class for easy date and time manipulation | # ABSTRACT: Class for easy date and time manipulation | |||
$Class::Date::VERSION = '1.1.16'; | $Class::Date::VERSION = '1.1.17'; | |||
use 5.006; | use 5.006; | |||
use strict; | use strict; | |||
use vars qw( | use vars qw( | |||
@EXPORT_OK %EXPORT_TAGS @ISA | @EXPORT_OK %EXPORT_TAGS @ISA | |||
$DATE_FORMAT $DST_ADJUST $MONTH_BORDER_ADJUST $RANGE_CHECK | $DATE_FORMAT $DST_ADJUST $MONTH_BORDER_ADJUST $RANGE_CHECK | |||
@NEW_FROM_SCALAR @ERROR_MESSAGES $WARNINGS | @NEW_FROM_SCALAR @ERROR_MESSAGES $WARNINGS | |||
$DEFAULT_TIMEZONE $LOCAL_TIMEZONE $GMT_TIMEZONE | $DEFAULT_TIMEZONE $LOCAL_TIMEZONE $GMT_TIMEZONE | |||
$NOTZ_TIMEZONE $RESTORE_TZ | $NOTZ_TIMEZONE $RESTORE_TZ | |||
); | ); | |||
skipping to change at line 590 | skipping to change at line 590 | |||
=pod | =pod | |||
=encoding UTF-8 | =encoding UTF-8 | |||
=head1 NAME | =head1 NAME | |||
Class::Date - Class for easy date and time manipulation | Class::Date - Class for easy date and time manipulation | |||
=head1 VERSION | =head1 VERSION | |||
version 1.1.16 | version 1.1.17 | |||
=head1 SYNOPSIS | =head1 SYNOPSIS | |||
use Class::Date qw(:errors date localdate gmdate now -DateParse -EnvC); | use Class::Date qw(:errors date localdate gmdate now -DateParse -EnvC); | |||
# creating absolute date object (local time) | # creating absolute date object (local time) | |||
$date = Class::Date->new( [$year,$month,$day,$hour,$min,$sec]); | $date = Class::Date->new( [$year,$month,$day,$hour,$min,$sec]); | |||
$date = date [$year,$month,$day,$hour,$min,$sec]; | $date = date [$year,$month,$day,$hour,$min,$sec]; | |||
# ^- "date" is an exportable function, the same as Class::Date->new | # ^- "date" is an exportable function, the same as Class::Date->new | |||
$date = date { year => $year, month => $month, day => $day, | $date = date { year => $year, month => $month, day => $day, | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added |