view release on metacpan or  search on metacpan

lib/App/ChangeShebang.pm  view on Meta::CPAN

    }
    $self->{file} = \@file;
    $self;
}

sub run ($self) {
    for my $file ($self->{file}->@*) {
        next unless -f $file && !-l $file;
        next unless $self->is_perl_shebang( $file );
        unless ($self->{force}) {
            my $anser = ExtUtils::MakeMaker::prompt( "change shebang line of $file? (y/N)", "N" );
            next if $anser !~ /^y(es)?$/i;
        }
        $self->change_shebang($file);
        warn "changed shebang line of $file\n" unless $self->{quiet};
    }
}

sub is_perl_shebang ($self, $file) {
    open my $fh, "<:raw", $file or die "open $file: $!\n";
    read $fh, my $first, 100 or die "read $file: $!\n";