File Coverage

lib/Data/Valve/BucketStore.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             # $Id: /mirror/coderepos/lang/perl/Data-Valve/trunk/lib/Data/Valve/BucketStore.pm 66567 2008-07-22T08:55:23.819173Z daisuke $
2              
3             package Data::Valve::BucketStore;
4 1     1   3317 use Moose::Role;
  0            
  0            
5              
6             requires qw(try_push fill reset);
7              
8             has 'context' => (
9             is => 'rw',
10             isa => 'Data::Valve',
11             handles => [ qw(max_items interval strict_interval) ],
12             );
13              
14             no Moose;
15              
16             1;
17              
18             __END__
19              
20             =head1 NAME
21              
22             Data::Valve::BucketStore - Manage Buckets
23              
24             =head1 METHODS
25              
26             =head2 setup
27              
28             =cut