view release on metacpan or  search on metacpan

lib/App/FargateStack.pm  view on Meta::CPAN

  $self->log_debug( sub { return Dumper( [ service_tasks => $service_tasks ] ) } );

  my @data;

  foreach my $task ( @{$service_tasks} ) {
    my ( $image_digest, $task_definition_arn, $started_at, $last_status )
      = @{$task}{qw(image_digest task_definition_arn started_at last_status)};

    my $short_image_digest        = abbrev( $image_digest, 16 );
    my $short_task_definition_arn = ( split m{/}xsm, $task_definition_arn )[-1];

    my $latest_task_definition_arn = $self->get_latest_task_definition($service_name);

    my $latest_image_digest = $self->get_latest_image($service_name)->{imageDigest};

    $last_status = $self->maybe_color( $last_status eq 'RUNNING' ? 'green' : 'yellow' => $last_status );

    $self->log_debug(
      sub {
        return Dumper(

lib/App/FargateStack.pm  view on Meta::CPAN

            latest_image_digest => $latest_image_digest
          ]
        );
      }
    );

    my $task_definition_status = choose {
      return $self->maybe_color( green => 'Current' )
        if $task_definition_arn eq $latest_task_definition_arn;

      return $self->maybe_color( red => ( split m{/}xsm, $latest_task_definition_arn )[-1] );
    };

    $image_digest //= q{};

    my $image_digest_status = choose {
      return $self->maybe_color( green => 'Current' )
        if $image_digest eq $latest_image_digest;

      return $self->maybe_color( red => abbrev( $latest_image_digest, 16 ) );
    };

lib/App/FargateStack/Builder/Cluster.pm  view on Meta::CPAN

########################################################################
  my ($self) = @_;

  my $tasks = $self->get_config->{tasks};

  my @repos;

  foreach my $task_name ( keys %{$tasks} ) {
    my $image = $self->resolve_image_name( $tasks->{$task_name}->{image} );
    if ( $image =~ m{/}xsm ) {
      ($image) = ( split m{/}xsm, $image )[-1];
    }

    my ( $name, $tag ) = split /:/xsm, $image;
    push @repos, sprintf $ECR_ARN_TEMPLATE, $self->get_region, $self->get_account, $name;
  }

  return (
    { Effect   => 'Allow',
      Action   => ['ecr:GetAuthorizationToken'],
      Resource => q{*}