File Coverage

blib/lib/UNIVERSAL/has.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package UNIVERSAL::has;
2              
3 1     1   38323 use 5.016002;
  1         4  
  1         31  
4 1     1   5 use strict;
  1         1  
  1         32  
5 1     1   4 use warnings;
  1         7  
  1         250  
6              
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             # Items to export into callers namespace by default. Note: do not export
12             # names by default without a very good reason. Use EXPORT_OK instead.
13             # Do not simply export all your public functions/methods/constants.
14              
15             # This allows declaration use UNIVERSAL::has ':all';
16             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
17             # will save memory.
18             our %EXPORT_TAGS = ( 'all' => [ qw(
19            
20             ) ] );
21              
22             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
23              
24             our @EXPORT = qw(
25            
26             );
27              
28             our $VERSION = '0.05';
29              
30             require XSLoader;
31             XSLoader::load('UNIVERSAL::has', $VERSION);
32              
33             # Preloaded methods go here.
34              
35             *UNIVERSAL::has = *UNIVERSAL::has::xs_has;
36              
37             1;
38             __END__