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.0001';
4 15     15   15655 use 5.010;
  15         29  
5              
6 15     15   466 use Class::Tiny::Antlers;
  15         4105  
  15         83  
7 15     15   1581 use namespace::clean;
  15         9490  
  15         59  
8              
9             extends 'Statistics::R::REXP';
10              
11              
12 15     15   1641 use constant sexptype => 'NILSXP';
  15         19  
  15         1492  
13              
14             sub BUILDARGS {
15 2554     2554 0 155269 my $class = shift;
16 2554 100       4229 die 'Null cannot have attributes' if scalar @_;
17              
18 2553         4402 return {@_}
19             }
20              
21             sub is_null {
22 1396     1396 1 3380 return 1;
23             }
24              
25             use overload
26 15     15   982 '""' => sub { 'NULL' };
  15     10   693  
  15         93  
  10         90  
27              
28             sub to_pl {
29             undef
30 1     1 1 314 }
31              
32              
33             1; # End of Statistics::R::REXP::Null
34              
35             __END__