Advertisement
Guest User

Untitled

a guest
Jan 22nd, 2012
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.51 KB | None | 0 0
  1. package Coxify::Db;
  2.  
  3. use base qw(Rose::DB);
  4.  
  5. use File::Slurp;
  6. use Mojo::JSON;
  7.  
  8. my $_config = undef;
  9.  
  10. sub config {
  11.   my ($key)  = @_;
  12.  
  13.   unless ($_config) {
  14.     my $json = Mojo::JSON->new;
  15.     $_config = $json->decode(read_file('config/config.json', binmode => ':utf8')) ;
  16.   }
  17.  
  18.   return $_config->{key};
  19. }
  20.  
  21. __PACKAGE__->register_db(
  22.   driver => config('driver'),
  23.   database => config('database'),
  24.   host => config('host'),
  25.   username => config('username'),
  26.   password => config('password'),
  27. );
  28.  
  29. 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement