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

#!perl -w

package Crypt::OpenSSL::CA::Inline::C;

use strict;
use XSLoader;

sub import {
    my ($class, $stuff) = @_;
    return if ! defined $stuff;
    return if $stuff eq "__END__";

    my ($package) = caller;
    no strict "refs";
    push @{$package."::ISA"}, qw(XSLoader);
    XSLoader::load($package);
}

=head1 NAME

Crypt::OpenSSL::CA::Inline::C - The Inline magic (or lack thereof) for
Crypt::OpenSSL::CA

=head1 SYNOPSIS

  use Crypt::OpenSSL::CA::Inline::C $and_the_rest_is_ignored;

  # ...

  use Crypt::OpenSSL::CA::Inline::C "__END__";

=head1 DESCRIPTION

This package simply loads the DLLs that contain the parts of
L that are made of XS code. It is a stubbed-down
version of the full-fledged I that
replaces the real thing at module install time.

There is more to I, such as the ability
to dynamically modify and recompile the C code snippets in
I's code source. But in order to grasp hold of its
power, you have to use the full source code tarball and not just the
installed version.

=cut

1;