Parent Directory | Revision Log | Patch
revision 174 by dpavlin, Mon Jun 16 16:48:16 2008 UTC | revision 181 by dpavlin, Mon Jun 16 20:08:28 2008 UTC | |
---|---|---|
# | Line 9 __PACKAGE__->mk_accessors( qw(instance u | Line 9 __PACKAGE__->mk_accessors( qw(instance u |
9 | use DBI; | use DBI; |
10 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
11 | use Carp qw/confess/; | use Carp qw/confess/; |
12 | use Jifty; | |
13 | ||
14 | our $debug = 0; | our $debug = 0; |
15 | ||
# | Line 35 our $instance_dbh; | Line 36 our $instance_dbh; |
36 | sub dbh { | sub dbh { |
37 | my $self = shift; | my $self = shift; |
38 | ||
39 | my $instance = shift || $self->instance || confess "no instance"; | my $instance = shift || ref($self) && $self->instance || confess "no instance"; |
40 | ||
41 | return $instance_dbh->{$instance} if $instance_dbh->{$instance}; | return $instance_dbh->{$instance} if $instance_dbh->{$instance}; |
42 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |