App-after
view release on metacpan or search on metacpan
#
#__END__
#
### Local/_pci_check_args.pm ###
#sub _pci_check_args {
# my $args = shift;
# FILL_FROM_POS: {
# 1;
# if (@ARGV > 0) { if (exists $args->{"command"}) { return [400, "You specified --command but also argument #0"]; } else { $args->{"command"} = [splice(@ARGV, 0)]; } }
# }
# my @check_argv = @ARGV;
#
# no warnings ('void');
# require List::Util;
# require Scalar::Util;
# require Time::Duration::Parse::AsHash;
# require Scalar::Util::Numeric::PP;
# require Time::Local;
# my $_sahv_dpath;
# my $_sahv_err;
# if (exists $args->{"all"}) {
# $_sahv_dpath = [];
# (!defined($args->{"all"}) ? 1 :
#
# (
# ((!ref($args->{"all"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type boolean value"),0))))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"command"}) {
# $_sahv_dpath = [];
# ((defined($args->{"command"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Required but not specified"),0))
#
# &&
#
# ((ref($args->{"command"}) eq 'ARRAY') ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type array"),0))
#
# &&
#
# (
# ((@{$args->{"command"}} >= 1) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Length must be at least 1"),0)))
#
# &&
#
# ([push(@{$_sahv_dpath}, undef), ~~(
# ((!defined(List::Util::first(sub {!(
# ($_sahv_dpath->[-1] = $_),
# ((defined($args->{"command"}->[$_])) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Required but not specified"),0))
#
# &&
#
# ((!ref($args->{"command"}->[$_])) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type text"),0))
# )}, 0..@{$args->{"command"}}-1))) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type text"),0))), pop(@{$_sahv_dpath})]->[1])
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"delay"}) {
# $_sahv_dpath = [];
# ((defined($args->{"delay"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Required but not specified"),0))
#
# &&
#
# ((eval { ($args->{"delay"} = (Scalar::Util::blessed($args->{"delay"}) && $args->{"delay"}->isa('DateTime::Duration')) ? (($args->{"delay"}->years * 365.25*86400 + $args->{"delay"}->months * 30.4375*86400 + $args->{"delay"}->weeks * 7*86400 +...
#
# &&
#
# ((!ref($args->{"delay"}) && $args->{"delay"} =~ /\A[0-9]+(?:.[0-9]+)?\z/) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type duration"),0))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"load_above"}) {
# $_sahv_dpath = [];
# ((defined($args->{"load_above"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Required but not specified"),0))
#
# &&
#
# ((Scalar::Util::Numeric::PP::isnum($args->{"load_above"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type decimal number"),0))
#
# &&
#
# (
# (($args->{"load_above"} >= 0) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Must be at least 0"),0)))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"load_below"}) {
# $_sahv_dpath = [];
# ((defined($args->{"load_below"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Required but not specified"),0))
#
# &&
#
# ((Scalar::Util::Numeric::PP::isnum($args->{"load_below"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type decimal number"),0))
#
# &&
#
# (
# (($args->{"load_below"} >= 0) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Must be at least 0"),0)))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"none"}) {
# $_sahv_dpath = [];
# (!defined($args->{"none"}) ? 1 :
#
# (
# ((!ref($args->{"none"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type boolean value"),0))))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"or"}) {
# $_sahv_dpath = [];
# (!defined($args->{"or"}) ? 1 :
#
# (
# ((!ref($args->{"or"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type boolean value"),0))))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"time"}) {
# $_sahv_dpath = [];
# ((defined($args->{"time"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Required but not specified"),0))
#
# &&
#
# ((eval { ($args->{"time"} = (Scalar::Util::blessed($args->{"time"}) && $args->{"time"}->isa('DateTime')) ? ($args->{"time"}->epoch) : ((!ref($args->{"time"}) && $args->{"time"} =~ /\A[0-9]{8,10}(?:.[0-9]+)?\z/ && $args->{"time"} >= 10**8 && ...
#
# &&
#
# ((!ref($args->{"time"}) && $args->{"time"} =~ /\A[0-9]+\z/) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type date"),0))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
# if (exists $args->{"uptime"}) {
# $_sahv_dpath = [];
# ((defined($args->{"uptime"})) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Required but not specified"),0))
#
# &&
#
# ((eval { ($args->{"uptime"} = (!ref($args->{"uptime"}) && $args->{"uptime"} =~ /\AP(?:([0-9]+(?:\.[0-9]+)?)Y)? (?:([0-9]+(?:\.[0-9]+)?)M)? (?:([0-9]+(?:\.[0-9]+)?)W)? (?:([0-9]+(?:\.[0-9]+)?)D)? (?: T (?:([0-9]+(?:\.[0-9]+)?)H)? (?:([0-9]+(?...
#
# &&
#
# ((!ref($args->{"uptime"}) && $args->{"uptime"} =~ /\A[0-9]+(?:.[0-9]+)?\z/) ? 1 : (($_sahv_err //= (@$_sahv_dpath ? '@'.join("",map {"[$_]"} @$_sahv_dpath).": " : "") . "Not of type duration"),0))
# ; if ($_sahv_err) { return [400, "Argument validation failed: $_sahv_err"] }
# }
#
# return [400, "Missing required argument: command"] unless exists $args->{"command"};
# return [400, "Missing required value for argument: command"] if exists($args->{"command"}) && !defined($args->{"command"});
# return [400, "Missing required value for argument: delay"] if exists($args->{"delay"}) && !defined($args->{"delay"});
# return [400, "Missing required value for argument: load_above"] if exists($args->{"load_above"}) && !defined($args->{"load_above"});
# return [400, "Missing required value for argument: load_below"] if exists($args->{"load_below"}) && !defined($args->{"load_below"});
# return [400, "Missing required value for argument: time"] if exists($args->{"time"}) && !defined($args->{"time"});
# return [400, "Missing required value for argument: uptime"] if exists($args->{"uptime"}) && !defined($args->{"uptime"});
# _pci_err([500, "Extraneous command-line argument(s): ".join(", ", @check_argv)]) if @check_argv;
# [200];
#}
#1;
### Local/_pci_clean_json.pm ###
#require Scalar::Util; use feature 'state'; sub _pci_clean_json { state $cleanser = sub {
#my $data = shift;
#state %refs;
#state $ctr_circ;
#state $process_array;
#state $process_hash;
#if (!$process_array) { $process_array = sub { my $a = shift; for my $e (@$a) { my $ref=ref($e);
# if ($ref eq 'DateTime') { $e = $e->epoch; $ref = ref($e) }
# elsif ($ref eq 'Regexp') { $e = "$e" }
# elsif ($ref eq 'SCALAR') { $e = ${ $e }; $ref = ref($e) }
# elsif ($ref eq 'Time::Moment') { $e = $e->epoch; $ref = ref($e) }
# elsif ($ref eq 'version') { $e = "$e" }
# elsif (Scalar::Util::blessed($e)) { if (!$Data::Clean::_clone && 0) { $e = Acme::Damn::damn($e) } else { $e = Function::Fallback::CoreOrPP::_unbless_fallback($e) } $ref = ref($e) }
# elsif ($ref && $refs{ $e }++) { if (++$ctr_circ <= 1) { $e = Data::Clone::clone($e); redo } else { $e = 'CIRCULAR' } $ref = ref($e) }
# elsif ($ref eq 'ARRAY') { $process_array->($e) }
# elsif ($ref eq 'HASH') { $process_hash->($e) }
# elsif ($ref) { $e = $ref; $ref = "" }
#} } }
#if (!$process_hash) { $process_hash = sub { my $h = shift; for my $k (keys %$h) { my $ref=ref($h->{$k});
# if ($ref eq 'DateTime') { $h->{$k} = $h->{$k}->epoch; $ref = ref($h->{$k}) }
# elsif ($ref eq 'Regexp') { $h->{$k} = "$h->{$k}" }
# elsif ($ref eq 'SCALAR') { $h->{$k} = ${ $h->{$k} }; $ref = ref($h->{$k}) }
# elsif ($ref eq 'Time::Moment') { $h->{$k} = $h->{$k}->epoch; $ref = ref($h->{$k}) }
# elsif ($ref eq 'version') { $h->{$k} = "$h->{$k}" }
# elsif (Scalar::Util::blessed($h->{$k})) { if (!$Data::Clean::_clone && 0) { $h->{$k} = Acme::Damn::damn($h->{$k}) } else { $h->{$k} = Function::Fallback::CoreOrPP::_unbless_fallback($h->{$k}) } $ref = ref($h->{$k}) }
# elsif ($ref && $refs{ $h->{$k} }++) { if (++$ctr_circ <= 1) { $h->{$k} = Data::Clone::clone($h->{$k}); redo } else { $h->{$k} = 'CIRCULAR' } $ref = ref($h->{$k}) }
# elsif ($ref eq 'ARRAY') { $process_array->($h->{$k}) }
# elsif ($ref eq 'HASH') { $process_hash->($h->{$k}) }
# elsif ($ref) { $h->{$k} = $ref; $ref = "" }
#} } }
#%refs = (); $ctr_circ=0;
#for ($data) { my $ref=ref($_);
# if ($ref eq 'DateTime') { $_ = $_->epoch; $ref = ref($_) }
# elsif ($ref eq 'Regexp') { $_ = "$_" }
# elsif ($ref eq 'SCALAR') { $_ = ${ $_ }; $ref = ref($_) }
# elsif ($ref eq 'Time::Moment') { $_ = $_->epoch; $ref = ref($_) }
# elsif ($ref eq 'version') { $_ = "$_" }
# elsif (Scalar::Util::blessed($_)) { if (!$Data::Clean::_clone && 0) { $_ = Acme::Damn::damn($_) } else { $_ = Function::Fallback::CoreOrPP::_unbless_fallback($_) } $ref = ref($_) }
# elsif ($ref && $refs{ $_ }++) { if (++$ctr_circ <= 1) { $_ = Data::Clone::clone($_); redo } else { $_ = 'CIRCULAR' } $ref = ref($_) }
# elsif ($ref eq 'ARRAY') { $process_array->($_) }
# elsif ($ref eq 'HASH') { $process_hash->($_) }
# elsif ($ref) { $_ = $ref; $ref = "" }
#}
#$data
#}
#;; $cleanser->(shift) }
#1;
### Perinci/Result/Format/Lite.pm ###
#package Perinci::Result::Format::Lite;
#
#our $DATE = '2016-04-08';
#our $VERSION = '0.14';
#
#use 5.010001;
#use strict;
#use warnings;
#
#use List::Util qw(first);
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT_OK = qw(format);
#
#sub firstidx (&@) {
# my $f = shift;
# foreach my $i ( 0 .. $#_ )
# {
# local *_ = \$_[$i];
# return $i if $f->();
# }
# return -1;
#}
#
#sub _json {
# state $json = do {
# if (eval { require Cpanel::JSON::XS; 1 }) { Cpanel::JSON::XS->new->canonical(1)->convert_blessed->allow_nonref }
# elsif (eval { require JSON::Tiny::Subclassable; 1 }) { JSON::Tiny::Subclassable->new }
# elsif (eval { require JSON::PP; 1 }) { JSON::PP->new->canonical(1)->convert_blessed->allow_nonref }
# else { die "Can't find any JSON module" }
# };
# $json;
#};
#
#sub __cleanse {
# state $cleanser = do {
# eval { require Data::Clean::JSON; 1 };
# if ($@) {
# undef;
# } else {
# Data::Clean::JSON->get_cleanser;
# }
# };
# if ($cleanser) {
( run in 1.131 second using v1.01-cache-2.11-cpan-cdf2f3d4e48 )