File Coverage

blib/lib/Scalar/Boolean/VM.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 25 28 89.2


line stmt bran cond sub pod time code
1 2     2   9 use strict;
  2         4  
  2         66  
2 2     2   11 use warnings;
  2         3  
  2         85  
3              
4             package #private
5             Scalar::Boolean::VM;
6              
7 2     2   10 use Variable::Magic qw( wizard cast dispell );
  2         2  
  2         175  
8              
9 2     2   1050 use Scalar::Boolean::Value;
  2         4  
  2         293  
10              
11             sub fixer {
12 25     25 0 3748 my $ref = $_[0];
13 25 100       78 $$ref =
14             $$ref
15             ? Scalar::Boolean::Value::true
16             : Scalar::Boolean::Value::false;
17             }
18              
19             my $wiz = wizard
20             'set' => \&fixer,
21             'get' => \&fixer;
22              
23             sub booleanise {
24 1     1 0 17 cast $_, $wiz for @_;
25             }
26              
27             sub unbooleanise {
28 1     1 0 280 dispell $_, $wiz for @_;
29             }
30              
31             1;
32              
33             __END__