Common-Form-Processor-Model-RDBO/t/lib/DB/Object.pm

   1 package DB::Object;
   2
   3 use strict;
   4
   5 use base qw/ Rose::DB::Object /;
   6
   7 use DB;
   8
   9 sub init_db {
  10     my $self = shift;
  11
  12     DB->new_or_cached( @_ );
  13 }
  14
  15 =head1 AUTHOR
  16
  17 vti
  18
  19 =head1 LICENSE
  20
  21 This library is free software, you can redistribute it and/or modify
  22 it under the same terms as Perl itself.
  23
  24 =cut
  25
  26 1;