File Coverage

blib/lib/File/Util/Rename/NoClobber.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


line stmt bran cond sub pod time code
1             package File::Util::Rename::NoClobber;
2              
3 1     1   415556 use 5.010001;
  1         5  
4 1     1   8 use strict 'subs', 'vars';
  1         1  
  1         53  
5 1     1   7 use warnings;
  1         2  
  1         79  
6              
7 1     1   7 use Exporter 'import';
  1         2  
  1         41  
8 1     1   581 use File::Util::Rename ();
  1         4  
  1         126  
9              
10             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
11             our $DATE = '2025-03-28'; # DATE
12             our $DIST = 'File-Util-Rename'; # DIST
13             our $VERSION = '0.003'; # VERSION
14              
15             our @EXPORT_OK = qw(
16             rename_noclobber
17             );
18              
19             *rename_noclobber = \&File::Util::Rename::rename_noclobber;
20              
21             1;
22             # ABSTRACT: Rename files, avoid clobbering existing files
23              
24             __END__