File Coverage

blib/lib/File/Copy/Link.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	11	20	55.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	47	56	83.9

package File::Copy::Link;

use strict;
use warnings;

use Carp;
use File::Copy ();

require Exporter;
push our @ISA, qw(Exporter);

our @EXPORT_OK = qw(copylink safecopylink);
our $VERSION   = '0.200';

sub copylink {
    local $_ = @_ ? shift : $_;    # default to $_
    croak "$_ not a link\n" unless -l;
    open my $fh, '<', $_ or croak "Can't open link $_: $!\n";
    unlink or croak "Can't unlink link $_: $!\n";
    my $ok = File::Copy::copy $fh, $_;
    croak "copy($fh $_) failed: $!\n" unless $ok;
    return $ok;
}

sub safecopylink {
    local $_ = @_ ? shift : $_;    # default to $_
    croak "$_ not a link\n" unless -l;
    require File::Spec::Link;
    my $orig = File::Spec::Link->linked($_);
    croak "$_ link problem\n" unless defined $orig;
    unlink or croak "Can't unlink link $_: $!\n";
    my $ok = File::Copy::copy $orig, $_;
    croak "copy($orig $_) failed: $!\n" unless $ok;
    return $ok;
}

1;
__END__