File Coverage

blib/lib/Perl6/Junction.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 4 4 100.0
total 32 32 100.0


line stmt bran cond sub pod time code
1             package Perl6::Junction;
2 8     8   188222 use strict;
  8         23  
  8         529  
3              
4 8     8   4914 use Perl6::Junction::All;
  8         21  
  8         243  
5 8     8   18314 use Perl6::Junction::Any;
  8         19  
  8         196  
6 8     8   5516 use Perl6::Junction::None;
  8         19  
  8         192  
7 8     8   4894 use Perl6::Junction::One;
  8         19  
  8         1801  
8              
9             require Exporter;
10             our $VERSION = '1.60000';
11              
12             our @ISA = qw/ Exporter /;
13             my @routines = qw/ all any none one /;
14             our @EXPORT_OK = @routines;
15             our %EXPORT_TAGS = ( ALL => [@routines] );
16              
17             sub all {
18 114     114 1 550 return Perl6::Junction::All->new(@_);
19             }
20              
21             sub any {
22 81     81 1 411 return Perl6::Junction::Any->new(@_);
23             }
24              
25             sub none {
26 87     87 1 375 return Perl6::Junction::None->new(@_);
27             }
28              
29             sub one {
30 102     102 1 505 return Perl6::Junction::One->new(@_);
31             }
32              
33             1;
34              
35             __END__