File Coverage

blib/lib/Gentoo/Dependency/AST/Node/Group/Use.pm
Criterion Covered Total %
statement 16 18 88.8
branch 1 2 50.0
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 24 28 85.7


line stmt bran cond sub pod time code
1              
2 1     1   530 use strict;
  1         2  
  1         25  
3 1     1   5 use warnings;
  1         70  
  1         39  
4              
5             package Gentoo::Dependency::AST::Node::Group::Use;
6             BEGIN {
7 1     1   30 $Gentoo::Dependency::AST::Node::Group::Use::AUTHORITY = 'cpan:KENTNL';
8             }
9             {
10             $Gentoo::Dependency::AST::Node::Group::Use::VERSION = '0.001001';
11             }
12              
13             # ABSTRACT: A group of dependencies that require a C to be required
14              
15 1     1   4 use parent 'Gentoo::Dependency::AST::Node';
  1         2  
  1         6  
16              
17              
18 1     1   52 use Class::Tiny qw( useflag );
  1         1  
  1         5  
19              
20              
21             sub _croak {
22 0     0   0 require Carp;
23 0         0 goto &Carp::croak;
24             }
25              
26              
27             sub BUILD {
28 6     6 1 312 my ( $self, $args ) = @_;
29 6 50       136 return _croak(q[useflag not defined]) if not defined $self->useflag;
30 6         61 return;
31             }
32              
33             1;
34              
35             __END__