File Coverage

blib/lib/Statistics/R/REXP/Null.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 2 100.0
condition n/a
subroutine 9 9 100.0
pod 2 3 66.6
total 33 34 97.0


line stmt bran cond sub pod time code
1             package Statistics::R::REXP::Null;
2             # ABSTRACT: the R null object
3             $Statistics::R::REXP::Null::VERSION = '1.0002';
4 15     15   47113 use 5.010;
  15         51  
5              
6 15     15   362 use Class::Tiny::Antlers;
  15         3018  
  15         100  
7 15     15   2014 use namespace::clean;
  15         8846  
  15         75  
8              
9             extends 'Statistics::R::REXP';
10              
11              
12 15     15   3082 use constant sexptype => 'NILSXP';
  15         30  
  15         1734  
13              
14             sub BUILDARGS {
15 2554     2554 0 27355 my $class = shift;
16 2554 100       6042 die 'Null cannot have attributes' if scalar @_;
17              
18 2553         6116 return {@_}
19             }
20              
21             sub is_null {
22 1396     1396 1 5019 return 1;
23             }
24              
25             use overload
26 15     15   815 '""' => sub { 'NULL' };
  15     10   817  
  15         110  
  10         123  
27              
28             sub to_pl {
29             undef
30 1     1 1 552 }
31              
32              
33             1; # End of Statistics::R::REXP::Null
34              
35             __END__