File Coverage

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

Criterion	Covered	Total	%
statement	26	27	96.3
branch	2	2	100.0
condition	2	3	66.6
subroutine	7	8	87.5
pod	2	2	100.0
total	39	42	92.8

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

=head1 NAME

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

=cut

use strict;
use warnings;
use boolean;

use Scalar::Util 'blessed';
use base 'Salvation::TC::Meta::Type::Parameterized';

=head1 METHODS

=cut

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

=cut

sub iterate {

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

    while( my ( $key, $item ) = each( %$value ) ) {

        eval { $code -> ( $item, $key, sub { $clone{ $key } = $_[ 0 ] } ) };

        if( $@ ) {

            keys( %$value ); # сбрасываем итератор
            die( $@ );
        }
    }

    return \%clone;
}

=head2 signed_type_generator()

=cut

sub signed_type_generator {

    my ( $self ) = @_;

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


1;

__END__