view release on metacpan or  search on metacpan

lib/Qhull/Util.pm  view on Meta::CPAN

package Qhull::Util;

# ABSTRACT: Various bits and pieces

use v5.26;
use strict;
use warnings;
use experimental 'signatures', 'lexical_subs', 'declared_refs', 'refaliasing';
use Ref::Util qw( is_arrayref is_hashref );
use Log::Any '$log';

our $VERSION = '0.08';

use Qhull::Util::Options ':all';

use Exporter::Shiny qw( parse_output supported_output_format );

our @CARP_NOT = qw( Qhull::PP Qhull::Options );

my sub croak {
    require Carp;
    goto \&Carp::croak;
}

my sub parse_output_facets;
my sub parse_output_vertices;

my %Parser = (
    f => {
        func => \&parse_output_facets,
    },
    p => {
        func => \&parse_output_vertices,
    },
    Fx => {
        func => \&parse_extreme_points,
    },
    FS => {
        func => \&parse_size,
    },
);









sub supported_output_format( $format ) {
    return defined $Parser{$format};
}