File Coverage

blib/lib/Math/Logic/Ternary/TFP_81.pm
Criterion Covered Total %
statement 21 25 84.0
branch n/a
condition n/a
subroutine 7 9 77.7
pod 0 2 0.0
total 28 36 77.7


line stmt bran cond sub pod time code
1             # Copyright (c) 2012-2017 Martin Becker, Blaubeuren. All rights reserved.
2             # This package is free software; you can redistribute it and/or modify it
3             # under the same terms as Perl itself.
4              
5             package Math::Logic::Ternary::TFP_81;
6              
7 1     1   533 use strict;
  1         4  
  1         44  
8 1     1   10 use warnings;
  1         2  
  1         55  
9 1     1   9 use Carp qw(croak);
  1         4  
  1         85  
10 1     1   6 use Math::BigInt try => 'GMP,Pari';
  1         2  
  1         8  
11 1     1   1521 use Math::BigFloat;
  1         20656  
  1         5  
12 1     1   702 use Math::Logic::Ternary::Trit;
  1         3  
  1         21  
13 1     1   4 use Math::Logic::Ternary::Word;
  1         2  
  1         114  
14              
15             require Exporter;
16              
17             our $VERSION = '0.004';
18             our @ISA = qw(Exporter);
19             our @EXPORT_OK = qw(float81);
20              
21             sub new {
22 0     0 0   my ($class, $mantissa, $exponent) = @_;
23 0           croak "$class: class not yet fully implemented";
24 0           return bless [$mantissa, $exponent], $class;
25             }
26              
27 0     0 0   sub float81 { __PACKAGE__->new(@_) }
28              
29             1;
30             __END__