view release on metacpan or  search on metacpan

lib/Sidef/Time/Time.pm  view on Meta::CPAN

package Sidef::Time::Time;

use utf8;
use 5.016;
use parent qw(Sidef::Object::Object);

use overload
  q{""}   => \&get_value,
  q{bool} => \&get_value,
  q{0+}   => \&get_value;

sub new {
    my (undef, $sec) = @_;

    if (defined $sec) {
        $sec = CORE::int($sec) if ref($sec);
    }
    else {
        $sec = time;
    }

    bless {sec => $sec,};
}

*call = \&new;

sub get_value {

    if (ref($_[0]) ne __PACKAGE__) {
        return CORE::time;
    }

    $_[0]->{sec} // CORE::time;
}

sub time {
    my ($self) = @_;
    Sidef::Types::Number::Number->new($self->get_value);
}

*sec = \&time;

sub now {
    Sidef::Types::Number::Number->new(CORE::time);
}

sub micro {
    my ($self) = @_;
    state $x = require Time::HiRes;
    Sidef::Types::Number::Number->new(scalar Time::HiRes::gettimeofday());
}

*micro_sec     = \µ
*micro_seconds = \µ

sub localtime {
    my ($self) = @_;
    Sidef::Time::Date->localtime($self->get_value);
}

*local = \&localtime;

sub gmtime {
    my ($self) = @_;
    Sidef::Time::Date->gmtime($self->get_value);
}

*gmt = \&gmtime;

sub dump {
    my ($self) = @_;
    Sidef::Types::String::String->new('Time(' . $self->get_value . ')');
}

sub to_str {
    my ($self) = @_;
    Sidef::Types::String::String->new($self->get_value);
}

*to_s = \&to_str;

1