File Coverage

blib/lib/Object/Pluggable/Constants.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Object::Pluggable::Constants;
2             BEGIN {
3 2     2   7586 $Object::Pluggable::Constants::AUTHORITY = 'cpan:HINRIK';
4             }
5             BEGIN {
6 2     2   41 $Object::Pluggable::Constants::VERSION = '1.29';
7             }
8              
9 2     2   16 use strict;
  2         3  
  2         104  
10 2     2   11 use warnings;
  2         19  
  2         106  
11              
12             require Exporter;
13 2     2   11 use base qw(Exporter);
  2         4  
  2         490  
14             our @EXPORT_OK = qw(
15             PLUGIN_EAT_NONE PLUGIN_EAT_CLIENT PLUGIN_EAT_PLUGIN PLUGIN_EAT_ALL
16             );
17             our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] );
18              
19             use constant {
20 2         228 PLUGIN_EAT_NONE => 1,
21             PLUGIN_EAT_CLIENT => 2,
22             PLUGIN_EAT_PLUGIN => 3,
23             PLUGIN_EAT_ALL => 4,
24 2     2   12 };
  2         4  
25              
26             1;
27             __END__