File Coverage

blib/lib/Crypt/OpenSSL/CA/Inline/C.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 27 29 93.1


line stmt bran cond sub pod time code
1             #!perl -w
2              
3             package Crypt::OpenSSL::CA::Inline::C;
4              
5 3     3   19 use strict;
  3         8  
  3         135  
6 3     3   19 use XSLoader;
  3         6  
  3         229  
7              
8             sub import {
9 42     42   103 my ($class, $stuff) = @_;
10 42 50       135 return if ! defined $stuff;
11 42 50       98 return if $stuff eq "__END__";
12              
13 42         128 my ($package) = caller;
14 3     3   19 no strict "refs";
  3         5  
  3         139  
15 42         205 push @{$package."::ISA"}, qw(XSLoader);
  42         522  
16 3     3   17 { no warnings "redefine"; XSLoader::load($package); }
  3         6  
  3         911  
  42         89  
  42         70304  
17             }
18              
19             =head1 NAME
20              
21             Crypt::OpenSSL::CA::Inline::C - The Inline magic (or lack thereof) for
22             Crypt::OpenSSL::CA
23              
24             =head1 SYNOPSIS
25              
26             use Crypt::OpenSSL::CA::Inline::C $and_the_rest_is_ignored;
27              
28             # ...
29              
30             use Crypt::OpenSSL::CA::Inline::C "__END__";
31              
32             =head1 DESCRIPTION
33              
34             This package simply loads the DLLs that contain the parts of
35             L that are made of XS code. It is a stubbed-down
36             version of the full-fledged I that
37             replaces the real thing at module install time.
38              
39             There is more to I, such as the ability
40             to dynamically modify and recompile the C code snippets in
41             I's code source. But in order to grasp hold of its
42             power, you have to use the full source code tarball and not just the
43             installed version.
44              
45             =cut
46              
47             1;
48