File Coverage

blib/lib/Crypt/OpenSSL/CA/Inline/C.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 22 24 91.6


line stmt bran cond sub pod time code
1             #!perl -w
2              
3             package Crypt::OpenSSL::CA::Inline::C;
4              
5 2     2   11 use strict;
  2         4  
  2         85  
6 2     2   10 use XSLoader;
  2         4  
  2         136  
7              
8             sub import {
9 28     28   56 my ($class, $stuff) = @_;
10 28 50       89 return if ! defined $stuff;
11 28 50       66 return if $stuff eq "__END__";
12              
13 28         77 my ($package) = caller;
14 2     2   11 no strict "refs";
  2         3  
  2         159  
15 28         40 push @{$package."::ISA"}, qw(XSLoader);
  28         328  
16 28         33483 XSLoader::load($package);
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