File Coverage

blib/lib/IO/K8s/Role/SpecBuilder.pm

Criterion	Covered	Total	%
statement	63	101	62.3
branch	26	66	39.3
condition	6	30	20.0
subroutine	7	8	87.5
pod	0	5	0.0
total	102	210	48.5

package IO::K8s::Role::SpecBuilder;
# ABSTRACT: Role for deep-path spec manipulation on CRD objects
our $VERSION = '1.008';
use Moo::Role;
use Scalar::Util qw(looks_like_number);

sub _walk_path {
    my ($data, $path, $vivify) = @_;
    my @parts = split /\./, $path;
    my $last_key = pop @parts;
    my $current = $data;

    for my $part (@parts) {
        if (ref $current eq 'ARRAY' && $part =~ /^\d+$/) {
            if ($vivify && !defined $current->[$part]) {
                $current->[$part] = {};
            }
            $current = $current->[$part];
        } elsif (ref $current eq 'HASH') {
            if ($vivify && !defined $current->{$part}) {
                # Look ahead: if next step is numeric, create array
                my $idx = 0;
                for my $p (@parts, $last_key) {
                    last if $p eq $part;
                    $idx++;
                }
                $current->{$part} = {};
            }
            $current = $current->{$part};
        } else {
            return (undef, undef) unless $vivify;
            return (undef, undef);
        }
    }

    return ($current, $last_key);
}

sub spec_get {
    my ($self, $path) = @_;
    my $spec = $self->spec;
    return undef unless ref $spec eq 'HASH';

    my @parts = split /\./, $path;
    my $current = $spec;

    for my $part (@parts) {
        if (ref $current eq 'ARRAY' && $part =~ /^\d+$/) {
            $current = $current->[$part];
        } elsif (ref $current eq 'HASH') {
            $current = $current->{$part};
        } else {
            return undef;
        }
        return undef unless defined $current;
    }

    return $current;
}

sub spec_set {
    my ($self, $path, $value) = @_;
    my $spec = $self->spec;
    unless (ref $spec eq 'HASH') {
        $spec = {};
        $self->spec($spec);
    }

    my @parts = split /\./, $path;
    my $last_key = pop @parts;
    my $current = $spec;

    for my $part (@parts) {
        if (ref $current eq 'ARRAY' && $part =~ /^\d+$/) {
            $current->[$part] = {} unless ref $current->[$part];
            $current = $current->[$part];
        } elsif (ref $current eq 'HASH') {
            $current->{$part} = {} unless ref $current->{$part};
            $current = $current->{$part};
        }
    }

    if (ref $current eq 'ARRAY' && $last_key =~ /^\d+$/) {
        $current->[$last_key] = $value;
    } elsif (ref $current eq 'HASH') {
        $current->{$last_key} = $value;
    }

    return $self;
}

sub spec_push {
    my ($self, $path, @values) = @_;
    my $spec = $self->spec;
    unless (ref $spec eq 'HASH') {
        $spec = {};
        $self->spec($spec);
    }

    my @parts = split /\./, $path;
    my $last_key = pop @parts;
    my $current = $spec;

    for my $part (@parts) {
        if (ref $current eq 'ARRAY' && $part =~ /^\d+$/) {
            $current->[$part] = {} unless ref $current->[$part];
            $current = $current->[$part];
        } elsif (ref $current eq 'HASH') {
            $current->{$part} = {} unless ref $current->{$part};
            $current = $current->{$part};
        }
    }

    if (ref $current eq 'ARRAY' && $last_key =~ /^\d+$/) {
        $current->[$last_key] = [] unless ref $current->[$last_key] eq 'ARRAY';
        push @{$current->[$last_key]}, @values;
    } elsif (ref $current eq 'HASH') {
        $current->{$last_key} = [] unless ref $current->{$last_key} eq 'ARRAY';
        push @{$current->{$last_key}}, @values;
    }

    return $self;
}

sub spec_merge {
    my ($self, %data) = @_;
    my $spec = $self->spec;
    unless (ref $spec eq 'HASH') {
        $spec = {};
        $self->spec($spec);
    }
    @{$spec}{keys %data} = values %data;
    return $self;
}

sub spec_delete {
    my ($self, $path) = @_;
    my $spec = $self->spec;
    return $self unless ref $spec eq 'HASH';

    my @parts = split /\./, $path;
    my $last_key = pop @parts;
    my $current = $spec;

    for my $part (@parts) {
        if (ref $current eq 'ARRAY' && $part =~ /^\d+$/) {
            $current = $current->[$part];
        } elsif (ref $current eq 'HASH') {
            $current = $current->{$part};
        } else {
            return $self;
        }
        return $self unless defined $current;
    }

    if (ref $current eq 'HASH') {
        delete $current->{$last_key};
    } elsif (ref $current eq 'ARRAY' && $last_key =~ /^\d+$/) {
        splice @$current, $last_key, 1;
    }

    return $self;
}

1;

__END__