File Coverage

blib/lib/Queue/Q/NaiveFIFO.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 9 33.3
pod 6 6 100.0
total 18 30 60.0


line stmt bran cond sub pod time code
1             package Queue::Q::NaiveFIFO;
2 5     5   604 use strict;
  5         10  
  5         123  
3 5     5   24 use warnings;
  5         9  
  5         124  
4              
5 5     5   25 use Carp qw(croak);
  5         7  
  5         805  
6              
7             # enqueue_item($single_data_structure)
8 0     0 1   sub enqueue_item { croak("Unimplemented") }
9             # enqueue_items(@list_of_data_structures)
10 0     0 1   sub enqueue_items { croak("Unimplemented") }
11             # my $item_or_undef = claim_item()
12 0     0 1   sub claim_item { croak("Unimplemented") }
13             # my (@items_or_undefs) = claim_items($n)
14 0     0 1   sub claim_items { croak("Unimplemented") }
15              
16 0     0 1   sub flush_queue { croak("Unimplemented") }
17              
18             # my $nitems = queue_length()
19 0     0 1   sub queue_length { croak("Unimplemented") }
20              
21             1;
22             __END__