File Coverage

blib/lib/DBomb/DBH/Owner.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package DBomb::DBH::Owner;
2              
3             =head1 NAME
4              
5             DBomb::DBH::Owner - A class that has $dbh data.
6              
7             =cut
8              
9             ## Note: Decide carefully when to use __PACKAGE__ and when to use $class.
10              
11 11     11   83 use strict;
  11         27  
  11         1064  
12 11     11   67 use warnings;
  11         22  
  11         351  
13 11     11   76 use Carp::Assert;
  11         20  
  11         136  
14 11     11   1463 use base qw(Class::Data::Inheritable);
  11         27  
  11         10302  
15             our $VERSION = '$Revision: 1.3 $';
16              
17              
18             ## Grabs from the writer pool. For code that doesn't know what it needs.
19             __PACKAGE__->mk_classdata('dbh');
20              
21             __PACKAGE__->mk_classdata('_dbh_reader_pool');
22             __PACKAGE__->mk_classdata('_dbh_writer_pool');
23              
24              
25             ## TODO
26              
27             ## accessor wrapper around the pool.
28             sub dbh_reader {
29             die "Not implemented";
30             my $class = ref($_[0]) ? ref(shift) : shift;
31             my $pool;
32              
33             if (@_){
34             }
35              
36             }
37              
38             sub dbh_writer {
39             die "Not implemented";
40             }
41              
42              
43             1;
44             __END__