File Coverage

blib/lib/Data/BitSet/Shared.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package Data::BitSet::Shared;
2 1     1   191044 use strict;
  1         2  
  1         37  
3 1     1   4 use warnings;
  1         1  
  1         140  
4             our $VERSION = '0.01';
5             require XSLoader;
6             XSLoader::load('Data::BitSet::Shared', $VERSION);
7              
8             use overload
9             '""' => \&to_string,
10 1     1   215548 'bool' => sub { 1 },
11 1     1   5 fallback => 1;
  1         2  
  1         16  
12              
13             sub set_bits {
14 1     1 0 21002 my ($self) = @_;
15 1         52 grep { $self->test($_) } 0 .. $self->capacity - 1;
  256         545  
16             }
17              
18             1;
19             __END__