File Coverage

blib/lib/File/Copy/Link.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	10	20	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	50	60	83.3

package File::Copy::Link;

use strict;
use warnings;

use Carp;
use File::Copy ();

require Exporter;
use base qw(Exporter);

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

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__