File Coverage

blib/lib/Dallycot/AST/JSONProperty.pm
Criterion Covered Total %
statement 18 22 81.8
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 1 0.0
total 24 31 77.4


line stmt bran cond sub pod time code
1             package Dallycot::AST::JSONProperty;
2             our $AUTHORITY = 'cpan:JSMITH';
3              
4             # ABSTRACT: Create JSON-LD graph from JSON
5              
6 23     23   13205 use strict;
  23         40  
  23         754  
7 23     23   93 use warnings;
  23         30  
  23         539  
8              
9 23     23   87 use utf8;
  23         30  
  23         100  
10 23     23   439 use parent 'Dallycot::AST';
  23         44  
  23         117  
11              
12 23     23   1207 use experimental qw(switch);
  23         35  
  23         163  
13              
14 23     23   3040 use Promises qw(deferred);
  23         37  
  23         115  
15              
16             sub execute {
17 0     0 0   my ( $self, $engine ) = @_;
18              
19             return $engine->execute($self->[1])->then(sub {
20 0     0     my($value) = @_;
21              
22 0           return ($self->[0], $value);
23 0           });
24             }
25              
26             1;