pgbackrest/libc/lib/pgBackRest/LibC.pm

package pgBackRest::LibC;

use 5.010001;
use strict;
use warnings;
use Carp;

require Exporter;
use AutoLoader;

our @ISA = qw(Exporter);

# Library version (add .999 during development)
our $VERSION = '1.13';

sub libCVersion {return $VERSION};

# Items to export into caller's namespace by default. Note: do not export names by default without a very good reason. Use EXPORT_OK
# instead. Do not simply export all your public functions/methods/constants.
#
# This allows declaration use pgBackRest::LibC ':all'; If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS =
(
    'debug' => [qw(
        UVSIZE
        libCVersion
    )],

    'checksum' => [qw(
        pageChecksum
        pageChecksumTest
        pageChecksumBuffer
    )],
);

our @EXPORT_OK = (@{$EXPORT_TAGS{'debug'}}, @{$EXPORT_TAGS{'checksum'}});

# Nothing is exported by default
our @EXPORT = qw();

# This AUTOLOAD is used to 'autoload' constants from the constant() XS function.  Nothing in this function needs to be updated to
# add new constants.
sub AUTOLOAD
{
    my $constname;
    our $AUTOLOAD;

    ($constname = $AUTOLOAD) =~ s/.*:://;

    croak "&pgBackRest::LibC::constant not defined" if $constname eq 'constant';
    my ($error, $val) = constant($constname);

    if ($error) { croak $error; }
    {
        no strict 'refs';
            *$AUTOLOAD = sub {$val};
    }

    goto &$AUTOLOAD;
}

require XSLoader;
XSLoader::load('pgBackRest::LibC', $VERSION);

1;
__END__