view release on metacpan or  search on metacpan

lib/App/Bernard/Magic/Single.pm  view on Meta::CPAN

    $pkg =~ s/[^a-z]//gi;

    return ("App::Bernard::Filetype::$pkg", $mimetype);
}

sub replace_inplace {

    my ($settings) = @_;

    if ($settings->{'inplace'}) {
	rename $settings->{'output'}, $settings->{'input'};
    }
}

sub handle {

    my ($self, $settings) = @_;

    if ($settings->{'output'}) {
	open OUTPUT, ">$settings->{'output'}"
	    or die "Can't open $settings->{'output'}: $!";