File Coverage

blib/lib/Data/SortedSet/Shared.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package Data::SortedSet::Shared;
2 8     8   476807 use strict;
  8         30  
  8         248  
3 8     8   24 use warnings;
  8         13  
  8         1100  
4             our $VERSION = '0.02';
5             require XSLoader;
6             XSLoader::load('Data::SortedSet::Shared', $VERSION);
7              
8             # String-keyed sets: members are arbitrary byte strings instead of int64 ids.
9             # Convenience constructor that builds a Data::SortedSet::Shared::Strings, which
10             # interns keys to ids via Data::Intern::Shared.
11             sub new_strings {
12 1     1 0 1 my $class = shift;
13 1         4 require Data::SortedSet::Shared::Strings;
14 1         4 return Data::SortedSet::Shared::Strings->new(@_);
15             }
16              
17             1;
18             __END__