Dogcows Code - chaz/p5-File-KDBX-XS/blob - lib/File/KDBX/XS.pm

   1 package File::KDBX::XS;
   2 # ABSTRACT: Speed up File::KDBX
   3
   4 use warnings;
   5 use strict;
   6
   7 use Exporter qw(import);
   8 use XSLoader;
   9
  10 our $VERSION = '999.999'; # VERSION
  11
  12 our @EXPORT_OK = qw(
  13     CowREFCNT
  14     kdf_aes_transform_half
  15 );
  16
  17 XSLoader::load(__PACKAGE__, $VERSION);
  18
  19 1;
  20 __END__
  21
  22 =head1 DESCRIPTION
  23
  24 This module provides some speed improvement for L<File::KDBX>.
  25
  26 There is no public interface.
  27
  28 This distribution contains code from L<CryptX> and L<LibTomCrypt|https://www.libtom.net/LibTomCrypt/>,
  29 bundled according to their own licensing terms (which are also permissive).
  30
  31 =begin markdown
  32
  33 [![Linux](https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/linux.yml/badge.svg)](https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/linux.yml)
  34 [![macOS](https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/macos.yml/badge.svg)](https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/macos.yml)
  35 [![Windows](https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/windows.yml/badge.svg)](https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/windows.yml)
  36
  37 =end markdown
  38
  39 =begin HTML
  40
  41 <a title="Linux" href="https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/linux.yml"><img src="https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/linux.yml/badge.svg"></a>
  42 <a title="macOS" href="https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/macos.yml"><img src="https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/macos.yml/badge.svg"></a>
  43 <a title="Windows" href="https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/windows.yml"><img src="https://github.com/chazmcgarvey/File-KDBX-XS/actions/workflows/windows.yml/badge.svg"></a>
  44
  45 =end HTML
  46
  47 =func CowREFCNT
  48
  49 Get the copy-on-write (COW) reference count of a scalar, or C<undef> if the perl does not support scalar COW
  50 or if the scalar is not COW.
  51
  52 See also L<B::COW/"cowrefcnt( PV )">.
  53
  54 =cut