File Coverage

bin/mvr

Criterion	Covered	Total	%
statement	33	33	100.0
branch	5	8	62.5
condition	1	2	50.0
subroutine	7	7	100.0
pod			n/a
total	46	50	92.0

#!/usr/bin/env perl
package
    mvr;
use v5.14.0;
use strict;
use warnings;
our $VERSION = '0.005'; # VERSION
# PODNAME: mvr
# ABSTRACT: like mv, but clever

use Pod::Usage qw(pod2usage);
use Getopt::Long;
use App::mvr;


my $verbose = 1;
my %opts = ( quiet => sub { $verbose = 0 }, verbose => \$verbose, deduplicate => 1 );
GetOptions( \%opts,
    'help|?',
    'version',
    'verbose|v+',
    'quiet!',
    'deduplicate!',
) or pod2usage( -verbose => 1 );
pod2usage( -verbose => 2 ) if $opts{help};

if ($opts{version}) {
    say __PACKAGE__ . ' version ' . (__PACKAGE__->VERSION // 'dev');
    exit;
}

my @source;
push @source, shift
    while @ARGV > 1;
pod2usage( -verbose => 0, -exitval => 1) unless @ARGV;

my $dest = shift;

local $App::mvr::VERBOSE = $verbose;
mvr( source => \@source, dest => $dest, deduplicate => $opts{deduplicate} );

__END__