File Coverage

blib/lib/Lox/Bool.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 32 32 100.0


line stmt bran cond sub pod time code
1 3     3   67751 use strict;
  3         5  
  3         83  
2 3     3   12 use warnings;
  3         5  
  3         256  
3             package Lox::True;
4             use overload
5 1     1   766 '""' => sub { 'true' },
6 1     1   5 '!' => sub { $Lox::False::False },
7 5     5   21 'bool' => sub { 1 },
8 3     3   3095 fallback => 0;
  3         2607  
  3         24  
9              
10             our $True = bless {}, 'Lox::True';
11              
12             package Lox::False;
13             use overload
14 1     1   4 '""' => sub { 'false' },
15 1     1   5 '!' => sub { $Lox::True::True },
16 4     4   20 'bool' => sub { undef },
17 3     3   430 fallback => 0;
  3         6  
  3         17  
18              
19             our $False = bless {}, 'Lox::False';
20              
21             package Lox::Bool;
22 3     3   283 use Exporter 'import';
  3         6  
  3         270  
23             our $True = $Lox::True::True;
24             our $False = $Lox::False::False;
25             our @EXPORT = qw($True $False);
26             our $VERSION = 0.01;
27              
28             1;