File Coverage

blib/lib/Dallycot/AST/TypePromotion.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package Dallycot::AST::TypePromotion;
2             our $AUTHORITY = 'cpan:JSMITH';
3              
4             # ABSTRACT: Manages the conversion of a value to a new type
5              
6 23     23   12137 use strict;
  23         38  
  23         759  
7 23     23   89 use warnings;
  23         34  
  23         464  
8              
9 23     23   84 use utf8;
  23         29  
  23         100  
10 23     23   422 use parent 'Dallycot::AST';
  23         34  
  23         104  
11              
12             sub to_string {
13 0     0 0   my ($self) = @_;
14 0           my @bits = @{$self};
  0            
15              
16 0           my $expr = shift @bits;
17              
18 0           return join( "^^", $expr->to_string, @bits );
19             }
20              
21             1;