File Coverage

blib/lib/Data/Sah/Value/perl/Date/datetime/start_of_this_month_utc.pm

Criterion	Covered	Total	%
statement	8	19	42.1
branch	0	6	0.0
condition	0	4	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	11	36	30.5

package Data::Sah::Value::perl::Date::datetime::start_of_this_month_utc;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-12-09'; # DATE
our $DIST = 'Data-Sah-ValueBundle-Date'; # DIST
our $VERSION = '0.003'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Start of this month (00:00:00 day 1), UTC',
        prio => 50,
        args => {
        },
    };
}

sub value {
    my %cargs = @_;

    #my $gen_args = $cargs{args} // {};
    my $res = {};

    $res->{modules}{'Time::Local'} //= 0;

    my $coerce_to = $cargs{coerce_to} // 'float(epoch)';

    if ($coerce_to eq 'float(epoch)') {
        $res->{expr_value} = 'do { my @lt = gmtime(); $lt[0] = $lt[1] = $lt[2] = 0; $lt[3] = 1; Time::Local::timegm_posix(@lt) }';
    } elsif ($coerce_to eq 'DateTime') {
        $res->{expr_value} = 'do { my @lt = gmtime(); DateTime->new(year=>$lt[5]+1900, month=>$lt[4]+1, day=>1, hour=>0, minute=>0, second=>0, time_zone=>"UTC") }';
    } elsif ($coerce_to eq 'Time::Moment') {
        $res->{expr_value} = 'do { my @lt = gmtime(); Time::Moment->new(year=>$lt[5]+1900, month=>$lt[4]+1, day=>1, hour=>0, minute=>0, second=>0) }';
    } else {
        die "Unknown 'coerce_to'";
    }

    $res;
}

1;
# ABSTRACT:

__END__