File Coverage

blib/script/unsafe-rename

Criterion	Covered	Total	%
statement	26	29	89.6
branch	8	16	50.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	40	51	78.4

#!/usr/local/bin/perl
use strict;
use warnings;

use File::Rename qw(:config no_require_order);
use Pod::Usage;

main() unless caller;

sub main {
    my $options = File::Rename::Options::GetOptions()
        or pod2usage;

    pod2usage(  -verbose => 0,
                -exitval => 'NOEXIT',
                -message => <<'MESSAGE',
-u|--unicode argument does not look like an encoding:
    either give an encoding or put -e as next option
MESSAGE
    ) if File::Rename::Options::bad_encoding($options);

    mod_version() if $options->{show_version};
    pod2usage( -verbose => 2 ) if $options->{show_manual};
    pod2usage( -exitval => 1 ) if $options->{show_help};

    @ARGV = map {glob} @ARGV if $^O =~ m{Win}msx;

    File::Rename::rename(\@ARGV, $options);
}

sub mod_version {
    print __FILE__;
    my $version = File::Rename->VERSION;
    my $opt_ver = File::Rename::Options->VERSION;
    print ' using File::Rename version '.  $version;
    if( (eval $opt_ver) < (eval $version) ) {
        $opt_ver .= '.00' unless $opt_ver =~ m{\.};
        print ', File::Rename::Options version '. $opt_ver;
    }
    # ignore File::Rename->VERSION
    print "\n\n";
    exit 0
}

1;

__END__