File Coverage

blib/lib/File/Sync.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	25	28	89.2

# File::Sync.pm
#
# Copyright © 1997,1999 Carey Evans.  All rights reserved.  This module is
# free software; you can redistribute it and/or modify it under the same
# terms as Perl itself.

package File::Sync;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;
require AutoLoader;

use Carp;
use Symbol qw(qualify_to_ref);

@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default.
@EXPORT = ();
@EXPORT_OK = qw(
	sync
   fdatasync
	fsync
   fdatasync_fd
	fsync_fd
);
$VERSION = '0.11';

bootstrap File::Sync $VERSION;

# Preloaded methods go here.

# Interface from Perl filehandle to POSIX file descriptor.
sub fsync(*) {
    @_ == 1 or croak "usage: fsync FILEHANDLE";

    fsync_fd(fileno(qualify_to_ref($_[0], caller())));
}

sub fdatasync(*) {
    @_ == 1 or croak "usage: fdatasync FILEHANDLE";

    fdatasync_fd(fileno(qualify_to_ref($_[0], caller())));
}

## Make fsync available as a method of FileHandle
*FileHandle::fsync = \&fsync;
# note: we no longer clobber IO::Handle::fsync. see POD for more.

1;
__END__