File Coverage

blib/lib/Math/Logic/Ternary/Calculator.pm

Criterion	Covered	Total	%
statement	28	31	90.3
branch	8	10	80.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	46	51	90.2

# Copyright (c) 2012-2017 Martin Becker, Blaubeuren.  All rights reserved.
# This package is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.

package Math::Logic::Ternary::Calculator;

use 5.008;
use strict;
use warnings;
use Math::Logic::Ternary::Calculator::State;
use Math::Logic::Ternary::Calculator::Session;

require Exporter;

our $VERSION     = '0.004';
our @ISA         = qw(Exporter);
our @EXPORT      = qw(tcalc);

our $DEFAULT_WORD_SIZE = 27;

sub tcalc {
    my ($size, $mode) = @_;
    if (!defined $size) {
        $size = $DEFAULT_WORD_SIZE;
    }
    if (!defined $mode) {
        $mode = 0;
    }
    if (2 < @_ || grep { defined $_ and !/^\d+\z/ } $size, $mode) {
        die "usage: tcalc [word_size [mode]]\n";
    }
    my $state   = eval {
        Math::Logic::Ternary::Calculator::State->new($size, $mode)
    };
    if (!defined $state) {
        my $msg = $@;
        $msg =~ s/ at .*? line \d+\.$//;
        die $msg;
    }
    my $session = Math::Logic::Ternary::Calculator::Session->new($state);
    $session->run;
    return;
}

1;
__END__