File Coverage

blib/lib/Lox/String.pm
Criterion Covered Total %
statement 17 18 94.4
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 1 0.0
total 24 27 88.8


line stmt bran cond sub pod time code
1             package Lox::String;
2 2     2   62174 use strict;
  2         11  
  2         49  
3 2     2   8 use warnings;
  2         4  
  2         41  
4 2     2   1142 use Lox::Bool;
  2         3  
  2         284  
5             use overload
6 2     2   3 '""' => sub { ${$_[0]} },
  2         13  
7 3     3   217 'bool' => sub { $True },
8 0     0   0 '!' => sub { $False },
9 2     2   19 fallback => 0;
  2         10  
  2         15  
10              
11             our $VERSION = 0.02;
12              
13             sub new {
14 2     2 0 82 my ($class, $string) = @_;
15 2         32 return bless \$string, $class;
16             }
17              
18             1;