File Coverage

blib/lib/Devel/AssertApplicationCapabilities/cpCanHardLink.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	38	43	88.3

package Devel::AssertApplicationCapabilities::cpCanHardLink;

use strict;
use vars qw($VERSION);
local $^W = 1;
$VERSION = '1.0';
use base qw(Devel::AssertApplicationCapabilities::_Base);

use Devel::CheckApplicationCapabilities;
use File::Temp qw(tempdir);

sub app_is {
  my $app = shift;

  my $dir = tempdir();
  open(TEMPFILE, '>', "$dir/foo") ||
      die("Can't create $dir/foo to test whether $app supports -l\n");
  print TEMPFILE "Testing";
  close(TEMPFILE);

  Devel::CheckApplicationCapabilities::_with_STDERR_closed(sub {
    system($app, '-l', "$dir/foo", "$dir/bar");
  });

  my $rval = 0;
  if(-e "$dir/bar" && ((stat("$dir/foo"))[1] == (stat("$dir/bar"))[1])) { # same inode
      $rval = 1;
  }
  unlink "$dir/foo", "$dir/bar";
  rmdir $dir;
  return $rval;
}

=head1 NAME

Devel::AssertApplicationCapabilities::cpCanHardLink - check that a 'cp' binary can create hard links with -l.

The check is whether 'cp -l blah/foo blah/bar' results in two
files with the same inode number.

=head1 SOURCE CODE REPOSITORY

L

=head1 AUTHOR, COPYRIGHT and LICENCE

Copyright 2012 David Cantrell

This software is free-as-in-speech software, and may be used,
distributed, and modified under the terms of either the GNU
General Public Licence version 2 or the Artistic Licence.  It's
up to you which one you use.  The full text of the licences can
be found in the files GPL2.txt and ARTISTIC.txt, respectively.

=head1 CONSPIRACY

This module is also free-as-in-mason software.

=cut

1;