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;