File Coverage

blib/lib/Queue/Q/ClaimFIFO.pm
Criterion Covered Total %
statement 12 21 57.1
branch n/a
condition n/a
subroutine 4 13 30.7
pod 8 9 88.8
total 24 43 55.8


line stmt bran cond sub pod time code
1             package Queue::Q::ClaimFIFO;
2 5     5   607 use strict;
  5         10  
  5         137  
3 5     5   26 use warnings;
  5         9  
  5         142  
4              
5 5     5   26 use Carp qw(croak);
  5         11  
  5         269  
6              
7             # Note: items are generally Queue::Q::ClaimFIFO::Item's
8 5     5   2979 use Queue::Q::ClaimFIFO::Item;
  5         15  
  5         1010  
9              
10             # enqueue_item($single_item)
11 0     0 1   sub enqueue_item { croak("Unimplemented") }
12             # enqueue_items(@list_of_items)
13 0     0 1   sub enqueue_items { croak("Unimplemented") }
14              
15             # my $item_or_undef = claim_item()
16 0     0 1   sub claim_item { croak("Unimplemented") }
17             # my (@items_or_undefs) = claim_items($n)
18 0     0 1   sub claim_items { croak("Unimplemented") }
19              
20             # mark_item_as_done($item_previously_claimed)
21 0     0 1   sub mark_item_as_done { croak("Unimplemented") }
22             # mark_item_as_done(@items_previously_claimed)
23 0     0 1   sub mark_items_as_done { croak("Unimplemented") }
24              
25 0     0 1   sub flush_queue { croak("Unimplemented") }
26              
27             # my $nitems = queue_length()
28 0     0 1   sub queue_length { croak("Unimplemented") }
29              
30             # my $nclaimed_items = claimed_count()
31 0     0 0   sub claimed_count { croak("Unimplemented") }
32              
33             1;
34             __END__