view release on metacpan or  search on metacpan

lib/DynGig/Range/Time/Date.pm  view on Meta::CPAN

use DynGig::Range::Integer;
use overload '*=' => \&filter;
use constant { ABS => 0, REL => 1 };

my %_ENV = ( timezone => 'UTC' );

=head1 METHODS

See base class for additional methods.

=head2 setenv( timezone => $TZ )

Sets private environment variable I<timezone>. Returns object/class.

=cut
sub setenv
{
    my ( $this, %param ) = @_;

    map { $_ENV{$_} = $param{$_} if defined $param{$_} } keys %_ENV;
    return $this;
}

=head2 abs()

Returns absolute time.

lib/DynGig/Range/Time/Day.pm  view on Meta::CPAN

use strict;

use overload '*=' => \&filter;

my %_ENV = ( cycle => 7 );

=head1 METHODS

See base class for additional methods.

=head2 setenv( cycle => $int )

Sets private environment variable I<cycle>. Returns object/class.

=cut
sub setenv
{
    my ( $this, %param ) = @_;

    map { $_ENV{$_} = $param{$_} if defined $param{$_} } keys %_ENV;
    return $this;
}

=head2 size()

Return the number of days in the object.