The same problem happens with ONE_YEAR which is 31_556_930 seconds or the number of seconds in 365.24225 days

The fact that your year calculation was off by about one quarter of a day was a dead give-away.

Yep the POD talks about that differences of Time::Piece objects are returned as seconds Time::Seconds objects.

The only example given of adding a Time-Seconds' constant is ONE_DAY, which is mostly safe.

And the POD of Time::Seconds says that those constants are not objects but only seconds. ¹

The documentation is indeed misleading ... and unfortunately again a case were "core module" means "old module".

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}

¹) Since perl does not (yet?) support constant objects, these constants are in seconds only, so you cannot, for example, do this: print ONE_WEEK->minutes;

> Since perl does not (yet?) support constant objects, these constants are in seconds only, so you cannot, for example, do this: print ONE_WEEK->minutes;

Could someone please enlighten me if this is an (old) problem?

I had no problems to store an object in a constant.

update

use strict;
use warnings;

{
    package MY_TIME;
    sub print_sec {
        my $self =shift;
        print $self->[0];
    }
}

use constant ONE_HOUR => bless [3600], "MY_TIME";

ONE_HOUR->print_sec;
__END__
3600
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}

The documentation is indeed misleading ... and unfortunately again a case were "core module" means "old module".

By the way you mention this, it sounds like it's been well known. I've never put together ties between 'core' and `stale'. Are there other examples of this?

If so, my synopsis would be 'patch if one knows better'.

-stevieb

use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

my $now = localtime;
print "Today: $now\n";
print " Week: ", $now - ONE_WEEK, $/;
print "  Mon: ", $now - ONE_MONTH, $/;
print "  Mon: ", $now->add_months(-1), "\n";
print " Year: ", $now - ONE_YEAR, $/;
print " Year: ", $now->add_years(-1), "\n";

__DATA__
Today: Fri Oct  2 16:12:17 2015
 Week: Fri Sep 25 16:12:17 2015
  Mon: Wed Sep  2 05:43:13 2015
  Mon: Wed Sep  2 16:12:17 2015
 Year: Thu Oct  2 10:23:27 2014
 Year: Thu Oct  2 16:12:17 2014
[download]

A quick read of the POD suggests you should use add_months() and add_years() to get accurate values. Adding the following just before your __DATA__ works for me on Windows 7 x64 / Strawberry 5.18.1.

print "Done according to POD:\n";
print "  Mon: " . $now->add_months(-1) . "\n";
print " Year: " . $now->add_years(-1) . "\n";
[download]

UPDATE:

I don't need Time::Piece to verify that I'm 10 minutes too late as Toolic (above) beat me to it.

You might take a look at module Date::Calc which has served me well for all the date/time problems I've had.

I agree. Date::Calc is the "Swiss Army Knife" of date/time modules. Seldom ideal, but it always gets the job done.
Bill

"... Date::Calc...has served me well..."

I'm glad that i'm not alone.

Regards, Karl

P.S.: See Re^3: How To Modify PDF Metadata

«The Crux of the Biscuit is the Apostrophe»

To help you stay in practice with manual calculation of DT differences?

Possible hint of problems, tho: in the doc under the heading "Date Parsing" where data starts out as "Sun" and the module returns "Wed", the author, Ricardo SIGNES, says "(see, it's even smart enough to fix my obvious date bug)."

I don't imagine that's a lot of help... but it exists (and to paraphrase the philosopher) therefore I cite it.

      ;-)

The Jeffa doesn't need help from sockpuppets like us! ;)

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}