File Coverage

blib/lib/Modern/OpenAPI/Generator/Writer.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition	17	19	89.4
subroutine	9	9	100.0
pod	2	2	100.0
total	66	68	97.0

package Modern::OpenAPI::Generator::Writer;

use v5.26;
use strict;
use warnings;
use Carp qw(croak);
use File::Path qw(make_path);
use File::Spec ();
use Path::Tiny qw(path);

sub new {
    my ( $class, %arg ) = @_;
    bless {
        root  => path( $arg{root} )->stringify,
        force => $arg{force} // 0,
        merge => $arg{merge} // 0,
    }, $class;
}

sub write {
    my ( $self, $rel, $content ) = @_;
    croak "Writer: empty rel" unless defined $rel && length $rel;
    my $full = path( $self->{root} )->child($rel);
    $full->parent->mkpath( { mode => 0755 } );

    if ( -e $full && $self->{merge} && !$self->{force} ) {
        return;
    }
    if ( -e $full && !$self->{force} && !$self->{merge} ) {
        croak "Refusing to overwrite $full (use --force)";
    }

    $full->spew_utf8($content);
    return $full;
}

1;

__END__