OrcaSlicer-bambulab/lib/Slic3r/Format/STL.pm

package Slic3r::Format::STL;
use Moo;

use File::Basename qw(basename);

sub write_file {
    my $self = shift;
    my ($file, $mesh, %params) = @_;
    
    $mesh = $mesh->mesh if $mesh->isa('Slic3r::Model');
    
    my $path = Slic3r::encode_path($file);
    
    $params{binary}
        ? $mesh->write_binary($path)
        : $mesh->write_ascii($path);
}

1;