File Coverage

blib/lib/Math/Logic/Ternary.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 12 12 100.0
pod 8 8 100.0
total 40 40 100.0


line stmt bran cond sub pod time code
1             # Copyright (c) 2006-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;
6              
7 10     10   402289 use strict;
  10         22  
  10         255  
8 10     10   46 use warnings;
  10         18  
  10         224  
9 10     10   2602 use Math::Logic::Ternary::Trit;
  10         28  
  10         307  
10 10     10   3155 use Math::Logic::Ternary::Word;
  10         30  
  10         2193  
11              
12             require Exporter;
13              
14             our $VERSION = '0.004';
15             our @ISA = qw(Exporter);
16             our @EXPORT_OK = qw(
17             nil true false ternary_trit
18             word9 word27 word81 ternary_word
19             );
20             our %EXPORT_TAGS = (all => \@EXPORT_OK);
21              
22 76     76 1 835 sub nil { Math::Logic::Ternary::Trit->nil }
23 37     37 1 1890 sub true { Math::Logic::Ternary::Trit->true }
24 39     39 1 1801 sub false { Math::Logic::Ternary::Trit->false }
25 1     1 1 1430 sub ternary_trit { Math::Logic::Ternary::Trit->from_various(@_) }
26              
27 23     23 1 8994 sub word9 { Math::Logic::Ternary::Word->from_various( 9, @_) }
28 1     1 1 4 sub word27 { Math::Logic::Ternary::Word->from_various(27, @_) }
29 2     2 1 10 sub word81 { Math::Logic::Ternary::Word->from_various(81, @_) }
30 432     432 1 206400 sub ternary_word { Math::Logic::Ternary::Word->from_various( @_) }
31              
32             1;
33             __END__