13 lines
337 B
Perl
13 lines
337 B
Perl
package Slic3r::Flow;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use parent qw(Exporter);
|
|
|
|
our @EXPORT_OK = qw(FLOW_ROLE_EXTERNAL_PERIMETER FLOW_ROLE_PERIMETER FLOW_ROLE_INFILL
|
|
FLOW_ROLE_SOLID_INFILL
|
|
FLOW_ROLE_TOP_SOLID_INFILL FLOW_ROLE_SUPPORT_MATERIAL
|
|
FLOW_ROLE_SUPPORT_MATERIAL_INTERFACE);
|
|
our %EXPORT_TAGS = (roles => \@EXPORT_OK);
|
|
|
|
1;
|