File Coverage

lib/B/DeparseTree/OPflags.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package B::DeparseTree::OPflags;
2             our($VERSION, @EXPORT, @ISA);
3             @ISA = qw(Exporter);
4             $VERSION = '3.2.0';
5              
6             # Various operator flag bits
7 8     8   42 use constant ASSIGN => 2; # has OP= variant
  8         14  
  8         410  
8 8     8   37 use constant LIST_CONTEXT => 4; # Assignment is in list context
  8         12  
  8         264  
9 8     8   30 use constant POSTFIX => 1; # operator can be used as postfix operator
  8         13  
  8         291  
10 8     8   38 use constant SWAP_CHILDREN => 1; # children of op should be reversed
  8         9  
  8         341  
11              
12             # Copied from B/const-xs.inc. Perl 5.16 doesn't have this
13 8     8   38 use constant SVpad_STATE => 11;
  8         13  
  8         314  
14 8     8   40 use constant SVpad_TYPED => 8;
  8         10  
  8         508  
15              
16             @EXPORT = qw(
17             ASSIGN
18             LIST_CONTEXT
19             POSTFIX
20             SWAP_CHILDREN
21             SVpad_STATE
22             SVpad_TYPED
23             );
24              
25              
26             1;