···

       
34
       
 
       
    return;

     

       
35
       
 
       
}

     

       
36
       
 
       


     

       
37
       
-
       
sub _collection {

     

       
38
       
-
       
    my ($self) = @_;

     

       
39
       
-
       
    return $self->db->get_collection( $self->namespace() );

     

       
40
       
-
       
}

     

       
41
       
-
       


     

       
42
       
 
       
sub fetch {

     

       
43
       
 
       
    my ( $self, $key ) = @_;

     

       
44
       
 
       
    $key =

     

···

       
34
       
 
       
    return;

     

       
35
       
 
       
}

     

       
36
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
37
       
 
       
sub fetch {

     

       
38
       
 
       
    my ( $self, $key ) = @_;

     

       
39
       
 
       
    $key =