view release on metacpan or  search on metacpan

lib/DateTimeX/Duration/Lite.pm  view on Meta::CPAN

    $e eq 'p' ? 'preserve' :
    $e;
}

sub is_wrap_mode     { $_[0]->end_of_month eq 'w' ? 1 : 0 }
sub is_limit_mode    { $_[0]->end_of_month eq 'l' ? 1 : 0 }
sub is_preserve_mode { $_[0]->end_of_month eq 'p' ? 1 : 0 }

sub end_of_month_mode { $_[0]->end_of_month }

sub calendar_duration {
    my $self = shift;

    return ( ref $self )
        ->new( map { $_ => $self->$_ } qw( _months _days _end_of_month ) );
}

sub clock_duration {
    my $self = shift;

    return ( ref $self )