File Coverage

blib/lib/Ref/Util/XS.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Ref::Util::XS;
2             # ABSTRACT: Utility functions for checking references
3             $Ref::Util::XS::VERSION = '0.115';
4 10     10   210036 use strict;
  10         34  
  10         354  
5 10     10   70 use warnings;
  10         29  
  10         363  
6 10     10   71 use XSLoader;
  10         31  
  10         457  
7              
8 10     10   72 use Exporter 5.57 'import';
  10         316  
  10         1452  
9              
10             our %EXPORT_TAGS = ( 'all' => [qw<
11             is_ref
12             is_scalarref
13             is_arrayref
14             is_hashref
15             is_coderef
16             is_regexpref
17             is_globref
18             is_formatref
19             is_ioref
20             is_refref
21              
22             is_plain_ref
23             is_plain_scalarref
24             is_plain_arrayref
25             is_plain_hashref
26             is_plain_coderef
27             is_plain_globref
28             is_plain_formatref
29             is_plain_refref
30              
31             is_blessed_ref
32             is_blessed_scalarref
33             is_blessed_arrayref
34             is_blessed_hashref
35             is_blessed_coderef
36             is_blessed_globref
37             is_blessed_formatref
38             is_blessed_refref
39             >] );
40              
41             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
42              
43             XSLoader::load('Ref::Util::XS', $Ref::Util::XS::{VERSION} ? ${ $Ref::Util::XS::{VERSION} } : ());
44              
45             1;
46              
47             __END__