<h2>Editing File: /lib64/perl5/Time/Seconds.pm</h2><form method='post'><textarea name='content' class='file-edit'>package Time::Seconds;
use strict;

our $VERSION = '1.31';

use Exporter 5.57 'import';

our @EXPORT = qw(
    ONE_MINUTE
    ONE_HOUR
    ONE_DAY
    ONE_WEEK
    ONE_MONTH
    ONE_YEAR
    ONE_FINANCIAL_MONTH
    LEAP_YEAR
    NON_LEAP_YEAR
);

our @EXPORT_OK = qw(cs_sec cs_mon);

use constant {
    ONE_MINUTE =&gt; 60,
    ONE_HOUR =&gt; 3_600,
    ONE_DAY =&gt; 86_400,
    ONE_WEEK =&gt; 604_800,
    ONE_MONTH =&gt; 2_629_744, # ONE_YEAR / 12
    ONE_YEAR =&gt; 31_556_930, # 365.24225 days
    ONE_FINANCIAL_MONTH =&gt; 2_592_000, # 30 days
    LEAP_YEAR =&gt; 31_622_400, # 366 * ONE_DAY
    NON_LEAP_YEAR =&gt; 31_536_000, # 365 * ONE_DAY
    # hacks to make Time::Piece compile once again
    cs_sec =&gt; 0,
    cs_mon =&gt; 1,
};

use overload
    'fallback' =&gt; 'undef',
    '0+' =&gt; \&amp;seconds,
    '&quot;&quot;' =&gt; \&amp;seconds,
    '&lt;=&gt;' =&gt; \&amp;compare,
    '+' =&gt; \&amp;add,
    '-' =&gt; \&amp;subtract,
    '-=' =&gt; \&amp;subtract_from,
    '+=' =&gt; \&amp;add_to,
    '=' =&gt; \&amp;copy;

sub new {
    my $class = shift;
    my ($val) = @_;
    $val = 0 unless defined $val;
    bless \$val, $class;
}

sub _get_ovlvals {
    my ($lhs, $rhs, $reverse) = @_;
    $lhs = $lhs-&gt;seconds;

    if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
        $rhs = $rhs-&gt;seconds;
    }
    elsif (ref($rhs)) {
        die &quot;Can't use non Seconds object in operator overload&quot;;
    }

    if ($reverse) {
        return $rhs, $lhs;
    }

    return $lhs, $rhs;
}

sub compare {
    my ($lhs, $rhs) = _get_ovlvals(@_);
    return $lhs &lt;=&gt; $rhs;
}

sub add {
    my ($lhs, $rhs) = _get_ovlvals(@_);
    return Time::Seconds-&gt;new($lhs + $rhs);
}

sub add_to {
    my $lhs = shift;
    my $rhs = shift;
    $rhs = $rhs-&gt;seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
    $$lhs += $rhs;
    return $lhs;
}

sub subtract {
    my ($lhs, $rhs) = _get_ovlvals(@_);
    return Time::Seconds-&gt;new($lhs - $rhs);
}

sub subtract_from {
    my $lhs = shift;
    my $rhs = shift;
    $rhs = $rhs-&gt;seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
    $$lhs -= $rhs;
    return $lhs;
}

sub copy {
	Time::Seconds-&gt;new(${$_[0]});
}

sub seconds {
    my $s = shift;
    return $$s;
}

sub minutes {
    my $s = shift;
    return $$s / 60;
}

sub hours {
    my $s = shift;
    $s-&gt;minutes / 60;
}

sub days {
    my $s = shift;
    $s-&gt;hours / 24;
}

sub weeks {
    my $s = shift;
    $s-&gt;days / 7;
}

sub months {
    my $s = shift;
    $s-&gt;days / 30.4368541;
}

sub financial_months {
    my $s = shift;
    $s-&gt;days / 30;
}

sub years {
    my $s = shift;
    $s-&gt;days / 365.24225;
}

sub pretty {
    my $s = shift;
    my $str = &quot;&quot;;
    if ($s &lt; 0) {
        $s = -$s;
        $str = &quot;minus &quot;;
    }
    if ($s &gt;= ONE_MINUTE) {
        if ($s &gt;= ONE_HOUR) {
            if ($s &gt;= ONE_DAY) {
                my $days = sprintf(&quot;%d&quot;, $s-&gt;days); # does a &quot;floor&quot;
                $str .= $days . &quot; days, &quot;;
                $s -= ($days * ONE_DAY);
            }
            my $hours = sprintf(&quot;%d&quot;, $s-&gt;hours);
            $str .= $hours . &quot; hours, &quot;;
            $s -= ($hours * ONE_HOUR);
        }
        my $mins = sprintf(&quot;%d&quot;, $s-&gt;minutes);
        $str .= $mins . &quot; minutes, &quot;;
        $s -= ($mins * ONE_MINUTE);
    }
    $str .= $s-&gt;seconds . &quot; seconds&quot;;
    return $str;
}

1;
__END__

=encoding utf8

=head1 NAME

Time::Seconds - a simple API to convert seconds to other date values

=head1 SYNOPSIS

    use Time::Piece;
    use Time::Seconds;
    
    my $t = localtime;
    $t += ONE_DAY;
    
    my $t2 = localtime;
    my $s = $t - $t2;
    
    print &quot;Difference is: &quot;, $s-&gt;days, &quot;\n&quot;;

=head1 DESCRIPTION

This module is part of the Time::Piece distribution. It allows the user
to find out the number of minutes, hours, days, weeks or years in a given
number of seconds. It is returned by Time::Piece when you delta two
Time::Piece objects.

Time::Seconds also exports the following constants:

    ONE_DAY
    ONE_WEEK
    ONE_HOUR
    ONE_MINUTE
    ONE_MONTH
    ONE_YEAR
    ONE_FINANCIAL_MONTH
    LEAP_YEAR
    NON_LEAP_YEAR

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

=head1 METHODS

The following methods are available:

    my $val = Time::Seconds-&gt;new(SECONDS)
    $val-&gt;seconds;
    $val-&gt;minutes;
    $val-&gt;hours;
    $val-&gt;days;
    $val-&gt;weeks;
    $val-&gt;months;
    $val-&gt;financial_months; # 30 days
    $val-&gt;years;
    $val-&gt;pretty; # gives English representation of the delta

The usual arithmetic (+,-,+=,-=) is also available on the objects.

The methods make the assumption that there are 24 hours in a day, 7 days in
a week, 365.24225 days in a year and 12 months in a year.
(from The Calendar FAQ at http://www.tondering.dk/claus/calendar.html)

=head1 AUTHOR

Matt Sergeant, matt@sergeant.org

Tobias Brox, tobiasb@tobiasb.funcom.com

Balázs Szabó (dLux), dlux@kapu.hu

=head1 COPYRIGHT AND LICENSE

Copyright 2001, Larry Wall.

This module is free software, you may distribute it under the same terms
as Perl.

=head1 Bugs

Currently the methods aren't as efficient as they could be, for reasons of
clarity. This is probably a bad idea.

=cut
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Flib64%2Fperl5%2FTime'>Back to Directory</a>