Advertisement
Guest User

Untitled

a guest
Aug 16th, 2014
243
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. sub new {
  2. my ( $class, $mango_connect, $sharpener_db ) = @_;
  3. my $mango_instance = Mango->new( $mango_connect );
  4. my $sharpener_db = $mango_instance->db($sharpener_db);
  5. my $collections = (
  6. 'DashboardsColl' => $sharpener_db->collection('dashboards'),
  7. 'MangoInstance' => $mango_instance,
  8. 'MetricsColl' => $sharpener_db->collection('metrics'),
  9. 'SharpenerDb' => $sharpener_db
  10. );
  11. bless $collections, $class;
  12. return $collections;
  13. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement