File Coverage

blib/lib/Syntax/Feature/Gather.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 1 2 50.0
subroutine 4 4 100.0
pod 0 1 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package Syntax::Feature::Gather;
2              
3 1     1   59146 use strict;
  1         2  
  1         34  
4 1     1   4 use warnings;
  1         2  
  1         121  
5              
6             # ABSTRACT: Provide a gather keyword
7              
8             our $VERSION = '1.002001'; # VERSION
9              
10 1     1   908 use Syntax::Keyword::Gather ();
  1         861  
  1         90  
11              
12             sub install {
13 1     1 0 10 my ($class, %args) = @_;
14              
15 1         3 my $target = $args{into};
16 1   50     8 my $options = $args{options} || {};
17              
18 1         8 Syntax::Keyword::Gather->import({ into => $target }, %$options );
19              
20 1         5262 return 1;
21             }
22              
23             1;
24              
25             __END__