File Coverage

TestLib.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             package TestLib;
2              
3 1     1   25108 use warnings;
  1         2  
  1         32  
4 1     1   6 use strict;
  1         2  
  1         34  
5              
6 1     1   4 use Exporter;
  1         2  
  1         43  
7 1     1   5 use base qw(Exporter);
  1         1  
  1         115  
8              
9 1     1   6 use vars qw(@EXPORT_OK);
  1         2  
  1         77  
10             @EXPORT_OK = qw(try);
11              
12 1     1   644 use Text::Conversation;
  1         3  
  1         119  
13              
14             sub try {
15 1     1 0 16 my @input = @_;
16              
17 1         11 my $tc = Text::Conversation->new();
18              
19 1         3 my @actual_output;
20 1         3 foreach my $i (@input) {
21 3         13 my ($new_id, $ref_id) = $tc->observe(@$i);
22 3         46 push @actual_output, [ $new_id, $ref_id ];
23             }
24              
25 1         19 return \@actual_output;
26             }
27              
28             1;