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: XS implementation for Ref::Util
3             $Ref::Util::XS::VERSION = '0.116';
4 10     10   117273 use strict;
  10         27  
  10         250  
5 10     10   46 use warnings;
  10         20  
  10         220  
6 10     10   47 use XSLoader;
  10         19  
  10         248  
7              
8 10     10   42 use Exporter 5.57 'import';
  10         184  
  10         1008  
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__