File Coverage

blib/lib/File/Map.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	19	100.0

package File::Map;
$File::Map::VERSION = '0.70';
# This software is copyright (c) 2008, 2009, 2010, 2011, 2012 by Leon Timmermans .
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as perl itself.

use 5.008;
use strict;
use warnings FATAL => 'all';

use Sub::Exporter::Progressive 0.001005 ();
use XSLoader ();

XSLoader::load('File::Map', File::Map->VERSION);

my %export_data = (
	'map'     => [qw/map_handle map_file map_anonymous unmap sys_map/],
	extra     => [qw/remap sync pin unpin advise protect/],
	'lock'    => [qw/wait_until notify broadcast lock_map/],
	constants => [qw/PROT_NONE PROT_READ PROT_WRITE PROT_EXEC MAP_ANONYMOUS MAP_SHARED MAP_PRIVATE MAP_ANON MAP_FILE/]
);

my (@export_ok, %export_tags);

while (my ($category, $functions) = each %export_data) {
	for my $function (grep { defined &{$_} } @{$functions}) {
		push @export_ok, $function;
		push @{ $export_tags{$category} }, $function;
	}
}

Sub::Exporter::Progressive->import(-setup => { exports => \@export_ok, groups => \%export_tags });

1;

#ABSTRACT: Memory mapping made simple and safe.

__END__