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 4     4   57311 use strict;
  4         16  
  4         100  
2 4     4   30 use warnings;
  4         5  
  4         314  
3             package Lox::True;
4             use overload
5 1     1   798 '""' => sub { 'true' },
6 1     1   7 '!' => sub { $Lox::False::False },
7 5     5   29 'bool' => sub { 1 },
8 4     4   4252 fallback => 0;
  4         3480  
  4         40  
9              
10             our $True = bless {}, 'Lox::True';
11              
12             package Lox::False;
13             use overload
14 1     1   6 '""' => sub { 'false' },
15 1     1   6 '!' => sub { $Lox::True::True },
16 4     4   53 'bool' => sub { undef },
17 4     4   569 fallback => 0;
  4         7  
  4         25  
18              
19             our $False = bless {}, 'Lox::False';
20              
21             package Lox::Bool;
22 4     4   378 use Exporter 'import';
  4         8  
  4         336  
23             our $True = $Lox::True::True;
24             our $False = $Lox::False::False;
25             our @EXPORT = qw($True $False);
26             our $VERSION = 0.02;
27              
28             1;