view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - Split Perinci::CmdLine::pause to its own distribution to make that
          module's test pass [CT].


0.28    2015-04-15  Released-By: PERLANCAR

	- No functional changes.

	- [Build] Tweak fatten settings: reactivate stripper=1, no longer
          exclude_prereq DateTime because new Data-Sah no longer depends on it.


0.27    2015-04-15  Released-By: PERLANCAR

	- No functional changes.

	- [Build] Tweak fatten settings, now uses --include-prereq &
	  --exclude-prereq.

script/pause  view on Meta::CPAN

             ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
        } # if date arg exists
        if (exists $args->{"mtime_max"}) {
            $_sahv_dpath = [];
            # req #0
            ((defined($args->{"mtime_max"})) ? 1 : (($_sahv_err //= "Required but not specified"),0))
            
            &&
            
            # coerce rule(s): From_float::epoch, From_obj::datetime, From_obj::time_moment, From_str::iso8601 # coerce to: float(epoch)
            (($args->{"mtime_max"} = (!ref($args->{"mtime_max"}) && $args->{"mtime_max"} =~ /\A[0-9]{8,10}(?:.[0-9]+)?\z/ && $args->{"mtime_max"} >= 10**8 && $args->{"mtime_max"} <= 2**31) ? [undef,$args->{"mtime_max"}] : ((Scalar::Util::blessed($arg...
            
            &&
            
            # check type 'date'
            ((!ref($args->{"mtime_max"}) && $args->{"mtime_max"} =~ /\A[0-9]+\z/) ? 1 : (($_sahv_err //= "Not of type date"),0))
             ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
        } # if date arg exists
        if (exists $args->{"mtime_min"}) {
            $_sahv_dpath = [];
            # req #0
            ((defined($args->{"mtime_min"})) ? 1 : (($_sahv_err //= "Required but not specified"),0))
            
            &&
            
            # coerce rule(s): From_float::epoch, From_obj::datetime, From_obj::time_moment, From_str::iso8601 # coerce to: float(epoch)
            (($args->{"mtime_min"} = (!ref($args->{"mtime_min"}) && $args->{"mtime_min"} =~ /\A[0-9]{8,10}(?:.[0-9]+)?\z/ && $args->{"mtime_min"} >= 10**8 && $args->{"mtime_min"} <= 2**31) ? [undef,$args->{"mtime_min"}] : ((Scalar::Util::blessed($arg...
            
            &&
            
            # check type 'date'
            ((!ref($args->{"mtime_min"}) && $args->{"mtime_min"} =~ /\A[0-9]+\z/) ? 1 : (($_sahv_err //= "Not of type date"),0))
             ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
        } # if date arg exists
        if (exists $args->{"password"}) {
            $_sahv_dpath = [];
            # req #0

script/pause  view on Meta::CPAN

        my $_sahv_dpath;
        my $_sahv_err;
        if (exists $args->{"delay"}) {
            $_sahv_dpath = [];
            # req #0
            ((defined($args->{"delay"})) ? 1 : (($_sahv_err //= "Required but not specified"),0))
            
            &&
            
            # coerce rule(s): From_str::hms, From_float::seconds, From_obj::datetime_duration, From_str::iso8601, From_str::human # coerce to: float(secs)
            (($args->{"delay"} = ($args->{"delay"} =~ /\A([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2})(\.[0-9]{1,9})?)?\z/) ? (do { if ($1 > 23) { ["Invalid hour '$1', must be between 0-23"] } elsif ($2 > 59) { ["Invalid minute '$2', must be between 0-59...
            
            &&
            
            # check type 'duration'
            ((!ref($args->{"delay"}) && $args->{"delay"} =~ /\A[0-9]+(?:\.[0-9]+)?\z/) ? 1 : (($_sahv_err //= "Not of type duration"),0))
             ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
        } # if date arg exists
        if (exists $args->{"files"}) {
            $_sahv_dpath = [];
            # req #0