view release on metacpan or  search on metacpan

bin/cloudhealth  view on Meta::CPAN

use Types::Standard qw/ArrayRef Bool Str Maybe/;

has json => (is => 'ro', default => sub { JSON::MaybeXS->new->pretty });
has argv_struct => (is => 'ro', lazy => 1, default => sub {
  my $self = shift;
  my @params = @{ $self->argv };
  shift @params;
  my $arg_parser = ARGV::Struct->new(argv => [ '{', @params, '}' ]);
  return $arg_parser->parse;
});
has argv => (is => 'ro', isa => ArrayRef, required => 1);
has ch => (is => 'ro', lazy => 1, default => sub { CloudHealth::API->new });

has credentials_detected => (is => 'ro', isa => Bool, lazy => 1, default => sub {
  my $self = shift;
  $self->ch->credentials->is_set;
});

has run_method => (is => 'ro', isa => Maybe[Str], lazy => 1, default => sub { shift->argv->[0] });

has method_specified => (is => 'ro', isa => Bool, lazy => 1, default => sub {