Initial Commit

database/perl/vendor/lib/Crypt/SSLeay/Version.pm

@@ -0,0 +1,87 @@
+package Crypt::SSLeay::Version;
+require Crypt::SSLeay;
+
+use Exporter qw( import );
+
+our @EXPORT = qw();
+
+our @EXPORT_OK = qw(
+    openssl_built_on
+    openssl_cflags
+    openssl_dir
+    openssl_platform
+    openssl_version
+    openssl_version_number
+);
+
+use strict;
+__PACKAGE__;
+__END__
+
+=head1 NAME
+
+Crypt::SSLeay::Version - Obtain OpenSSL version information
+
+=head1 SYNOPSIS
+
+    use Crypt::SSLeay::Version qw(\
+        openssl_built_on
+        openssl_cflags
+        openssl_dir
+        openssl_platform
+        openssl_version
+        openssl_version_number
+    );
+
+    my $version = openssl_version();
+
+    if (openssl_cflags() =~ /DOPENSSL_NO_HEARTBEATS/) {
+        print "OpenSSL was compiled without heartbeats\n";
+    }
+
+=head1 SUMMARY
+
+Exposes information provided by L<SSLeay_version|https://www.openssl.org/docs/crypto/SSLeay_version.html>.
+
+=head1 EXPORTS
+
+By default, the module exports nothing. You can ask for each subroutine bloew to be exported to your namespace.
+
+=head1 SUBROUTINES
+
+=head2 openssl_built_on
+
+The date of the build process in the form "built on: ..." if available or ``built on: date not available'' otherwise.
+
+=head2 openssl_cflags
+
+The compiler flags set for the compilation process in the form "compiler: ..." if available or "compiler: information not available" otherwise.
+
+=head2 openssl_dir
+
+The C<OPENSSLDIR> setting of the library build in the form "OPENSSLDIR: ..." if available or "OPENSSLDIR: N/A" otherwise.
+
+=head2 openssl_platform
+
+The "Configure" target of the library build in the form "platform: ..." if available or "platform: information not available" otherwise.
+
+=head2 openssl_version
+
+The version of the OpenSSL library including the release date.
+
+=head2 openssl_version_number
+
+The value of the C<OPENSSL_VERSION_NUMBER> macro as an unsigned integer. This value is more like a string as version information is packed into specific nibbles see C<crypto/opensslv.h> in the OpenSSL source and L<https://metacpan.org/pod/OpenSSL::Versions|OpenSSL::Versions> for explanation.
+
+=head1 AUTHOR
+
+A. Sinan Unur C<< <nanis@cpan.org> >>
+
+=head1 COPYRIGHT
+
+Copyright (C) 2014 A. Sinan Unur.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it under the terms of L<Artistic License 2.0|http://www.perlfoundation.org/artistic_license_2_0>.
+