File Coverage

integ_t/iron_io_integ_tests_common.pl
Criterion Covered Total %
statement 14 26 53.8
branch n/a
condition n/a
subroutine 5 8 62.5
pod n/a
total 19 34 55.8


line stmt bran cond sub pod time code
1 2     2   861 use 5.006;
  2         6  
2 2     2   10 use strict;
  2         2  
  2         47  
3 2     2   8 use warnings FATAL => 'all';
  2         4  
  2         62  
4 2     2   11 use Test::More;
  2         4  
  2         25  
5              
6 2     2   1378 use Data::UUID;
  2         1169  
  2         412  
7              
8             # Utility routines
9              
10             sub create_unique_queue_name {
11 0     0     my $ug = Data::UUID->new();
12 0           my $uuid1 = $ug->create();
13 0           my $unique_queue_name =
14             'TESTQUEUE_' . substr($ug->to_string($uuid1), 1, 12);
15              
16 0           return $unique_queue_name;
17             }
18              
19             sub create_unique_cache_name {
20 0     0     my $ug = Data::UUID->new();
21 0           my $uuid1 = $ug->create();
22 0           my $unique_cache_name =
23             'TESTCACHE_' . substr($ug->to_string($uuid1), 1, 12);
24              
25 0           return $unique_cache_name;
26             }
27              
28             sub create_unique_code_package_name {
29 0     0     my $ug = Data::UUID->new();
30 0           my $uuid1 = $ug->create();
31 0           my $unique_code_package_name =
32             'TESTWORKER_' . substr($ug->to_string($uuid1), 1, 12);
33              
34 0           return $unique_code_package_name;
35             }
36              
37             1;