File Coverage

blib/lib/Salvation/TC/Meta/Type/Parameterized/ScalarRef.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package Salvation::TC::Meta::Type::Parameterized::ScalarRef;
2              
3             =head1 NAME
4              
5             Salvation::TC::Meta::Type::Parameterized::ScalarRef - Класс для типа параметризованного ScalarRef.
6              
7             =cut
8              
9 1     1   599 use strict;
  1         3  
  1         39  
10 1     1   4 use warnings;
  1         2  
  1         28  
11 1     1   4 use boolean;
  1         1  
  1         5  
12              
13 1     1   75 use base 'Salvation::TC::Meta::Type::Parameterized';
  1         2  
  1         186  
14              
15             =head1 METHODS
16              
17             =cut
18              
19             =head2 iterate( ScalarRef $value, CodeRef $code )
20              
21             =cut
22              
23             sub iterate {
24              
25 9     9 1 10 my ( $self, $value, $code ) = @_;
26 9         9 my $clone = undef;
27              
28 9     0   23 $code -> ( $$value, 0, sub { $clone = $_[ 0 ] } );
  0         0  
29              
30 5         12 return \$clone;
31             }
32              
33              
34             1;
35              
36             __END__