Advertisement
Guest User

Untitled

a guest
Mar 22nd, 2014
26
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.40 KB | None | 0 0
  1. <skip>
  2. has dbd => sub {
  3.   my $self = shift;
  4.   my $connector = Graph::GraphDb->new(
  5.     $self->{config}->{db}->{name},
  6.     $self->{config}->{db}->{host},
  7.     $self->{config}->{db}->{port},
  8.     $self->{config}->{db}->{user},
  9.     $self->{config}->{db}->{pass}
  10.     );
  11.   return $connector;
  12. };
  13.  
  14. sub startup {
  15.   my $self = shift;
  16.   $self->helper('dbd' => sub { return shift->app->dbd });
  17.  
  18.  
  19. <skip>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement