;
has 'ranges' => (is => 'ro', isa => 'ArrayRef[IO::K8s::Api::Policy::V1beta1::IDRange]' );
has 'rule' => (is => 'ro', isa => 'Str' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
s 'hostPort' => (is => 'ro', isa => 'Int' );
has 'name' => (is => 'ro', isa => 'Str' );
has 'protocol' => (is => 'ro', isa => 'Str' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
as 'kind' => (is => 'ro', isa => 'Str' );
has 'metadata' => (is => 'ro', isa => 'IO::K8s::Apimachinery::Pkg::Apis::Meta::V1::ListMeta' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
m]' );
has 'requiredDuringSchedulingIgnoredDuringExecution' => (is => 'ro', isa => 'ArrayRef[IO::K8s::Api::Core::V1::PodAffinityTerm]' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
=> (is => 'ro', isa => 'IO::K8s::Api::Core::V1::NodeSpec' );
has 'status' => (is => 'ro', isa => 'IO::K8s::Api::Core::V1::NodeStatus' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
NodeDaemonEndpoints;
use Moose;
use IO::K8s;
has 'kubeletEndpoint' => (is => 'ro', isa => 'IO::K8s::Api::Core::V1::DaemonEndpoint' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
as 'kind' => (is => 'ro', isa => 'Str' );
has 'metadata' => (is => 'ro', isa => 'IO::K8s::Apimachinery::Pkg::Apis::Meta::V1::ListMeta' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
e' => (is => 'ro', isa => 'Str' );
has 'vsphereVolume' => (is => 'ro', isa => 'IO::K8s::Api::Core::V1::VsphereVirtualDiskVolumeSource' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
has 'reason' => (is => 'ro', isa => 'Str' );
has 'status' => (is => 'ro', isa => 'Str' );
has 'type' => (is => 'ro', isa => 'Str' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
s;
use Moose;
use IO::K8s;
has 'hard' => (is => 'ro', isa => 'HashRef[Str]' );
has 'used' => (is => 'ro', isa => 'HashRef[Str]' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
age;
use Moose;
use IO::K8s;
has 'names' => (is => 'ro', isa => 'ArrayRef[Str]' );
has 'sizeBytes' => (is => 'ro', isa => 'Int' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
as 'kind' => (is => 'ro', isa => 'Str' );
has 'metadata' => (is => 'ro', isa => 'IO::K8s::Apimachinery::Pkg::Apis::Meta::V1::ListMeta' );
sub to_json { IO::K8s->new->object_to_json(shift) }
1;
$ cat etc/myapp.json
{
"csv": {
"f_ext": ".csv/r",
"f_dir": "data"
"csv_sep_char": ";",
"csv_class": "Text::CSV_XS"
}
}
$cat etc/myapp-tpau.json
{
"csv": {
fer C<JSON>,
operators prefer C<YAML>) following possible config filenames:
[
# main command
'oper.json',
'oper.yaml',
'oper-dev.json',
'oper-dev.yaml',
'oper-test.json',
'oper-int.json',
'oper-int.yaml',
'oper-prod.json',
'oper-prod.yaml',
# deploy sub-command
'oper-deploy.json',
'oper-deploy.yaml',
'oper-deploy-dev.json',
'oper-de
use MooseX::Storage;
with MooseX::Storage::MaybeDeferred => {
default_format => 'JSON',
default_io => 'File',
};
has 'x' => (is => 'rw', isa => 'Int');
has 'y
_point = Point->load($filename);
# or
$another_point = Point->load($filename, {format => 'JSON', io => 'File'});
=head1 DESCRIPTION
With the module L<MooseX::Storage> you are hard coding the
__END__
$ cat etc/myapp.json
{
"csv": {
"f_ext": ".csv/r",
"csv_sep_char": ";",
"csv_class": "Text::CSV_XS"
}
}
$cat etc/myapp-tpau.json
{
"csv": {
"f_d
ion/x-gzip',
xls => 'application/vnd.ms-excel',
zip => 'application/zip',
json => 'application/json',
yml => 'application/x-yaml',
php => 'text/html',
);
=head1 METHODS
=hea
:Share ':all';
use Moo;
use namespace::clean;
has json => (is => 'ro', default => sub { return dist_file('Map-Tube-Frankfurt', 'frankfurt-map.json') });
with 'Map::Tube';
1;
__END__
=pod
=enco
tr is_estr is_atom is_atoms is_blank estr estr_atom estr_strs estr_ints estr_int json_to_estr estr_to_json char_to_json atoms flat match _name name value off elen erest epush eappend eunshift is_atom_
_to_str($int));
}
sub json_to_estr {
my $json = shift;
if (is_estr($json)) {
return $json;
}
my $chars = [];
my $mode = 0;
for my $ch (@{to_chars($json)}) {
if ($mode ==
apush($chars,$ch);
}
}
}
}
return to_str($chars);
}
sub estr_to_json {
my $estr = shift;
if (is_str($estr)) {
return $estr;
}
my $chars = [];
my $
lse {
croak("not implement action: |$call|");
}
}
my $action_str = estr_to_json($action);
croak("Expr not action: $action-str");
return '';
}
sub opt_spp_array {
s = $fbx->rename( { src => "/Disque dur/a.txt", dst => "b.txt' } );
=head3 download RAW file not JSON!
$res = $fbx->download_file("Disque dur/Photos/cyril/DSCF4322.JPG");
=head2 ftp
=head3 ftp co