File Coverage

blib/lib/Salvation/TC/Meta/Type/Parameterized/ArrayRef.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	3	6	50.0
subroutine	7	7	100.0
pod	3	3	100.0
total	36	39	92.3

package Salvation::TC::Meta::Type::Parameterized::ArrayRef;

=head1 NAME

Salvation::TC::Meta::Type::Parameterized::ArrayRef - Класс для типа параметризованного ArrayRef.

=cut

use strict;
use warnings;
use boolean;

use base 'Salvation::TC::Meta::Type::Parameterized';

=head1 METHODS

=cut

=head2 iterate( ArrayRef $value, CodeRef $code )

=cut

sub iterate {

    my ( $self, $value, $code ) = @_;
    my $i = 0;
    my @clone = ();

    foreach my $item ( @$value ) {

        $code -> ( $item, $i, \$clone[ $i ] );

        ++$i;
    }

    return \@clone;
}

=head2 signed_type_generator()

=cut

sub signed_type_generator {

    my ( $self ) = @_;

    return $self -> { 'signed_type_generator' } //= Salvation::TC -> get( 'ArrayRef' ) -> signed_type_generator();
}

=head2 length_type_generator()

=cut

sub length_type_generator {

    my ( $self ) = @_;

    return $self -> { 'length_type_generator' } //= Salvation::TC -> get( 'ArrayRef' ) -> length_type_generator();
}


1;

__END__