← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 09:58:41 2014
Reported on Tue Jun 24 09:59:19 2014

Filename/usr/local/lib/perl/5.14.2/MongoDB/Connection.pm
StatementsExecuted 124 statements in 893µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1112.20ms73.4msMongoDB::Connection::::BEGIN@28MongoDB::Connection::BEGIN@28
1111.76ms298msMongoDB::Connection::::BEGIN@24MongoDB::Connection::BEGIN@24
1111.13ms52.8msMongoDB::Connection::::BEGIN@27MongoDB::Connection::BEGIN@27
11110µs10µsMongoDB::Connection::::BEGIN@30MongoDB::Connection::BEGIN@30
11110µs42µsMongoDB::Connection::::BEGIN@34MongoDB::Connection::BEGIN@34
1119µs9µsMongoDB::Connection::::BEGIN@26MongoDB::Connection::BEGIN@26
1116µs23µsMongoDB::Connection::::BEGIN@31MongoDB::Connection::BEGIN@31
1116µs30µsMongoDB::Connection::::BEGIN@33MongoDB::Connection::BEGIN@33
1114µs4µsMongoDB::Connection::::BEGIN@32MongoDB::Connection::BEGIN@32
0000s0sMongoDB::Connection::::AUTOLOADMongoDB::Connection::AUTOLOAD
0000s0sMongoDB::Connection::::__ANON__[:49]MongoDB::Connection::__ANON__[:49]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#
2# Copyright 2009-2013 MongoDB, Inc.
3#
4# Licensed under the Apache License, Version 2.0 (the "License");
5# you may not use this file except in compliance with the License.
6# You may obtain a copy of the License at
7#
8# http://www.apache.org/licenses/LICENSE-2.0
9#
10# Unless required by applicable law or agreed to in writing, software
11# distributed under the License is distributed on an "AS IS" BASIS,
12# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13# See the License for the specific language governing permissions and
14# limitations under the License.
15#
16
17package MongoDB::Connection;
18{
1921µs $MongoDB::Connection::VERSION = '0.702.2';
20}
21
22# ABSTRACT: A connection to a MongoDB server (DEPRECATED)
23
24282µs2302ms
# spent 298ms (1.76+296) within MongoDB::Connection::BEGIN@24 which was called: # once (1.76ms+296ms) by MongoDB::BEGIN@28 at line 24
use Moose;
# spent 298ms making 1 call to MongoDB::Connection::BEGIN@24 # spent 4.61ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:519]
25
26226µs19µs
# spent 9µs within MongoDB::Connection::BEGIN@26 which was called: # once (9µs+0s) by MongoDB::BEGIN@28 at line 26
use MongoDB;
# spent 9µs making 1 call to MongoDB::Connection::BEGIN@26
272119µs152.8ms
# spent 52.8ms (1.13+51.6) within MongoDB::Connection::BEGIN@27 which was called: # once (1.13ms+51.6ms) by MongoDB::BEGIN@28 at line 27
use MongoDB::Cursor;
# spent 52.8ms making 1 call to MongoDB::Connection::BEGIN@27
282135µs173.4ms
# spent 73.4ms (2.20+71.2) within MongoDB::Connection::BEGIN@28 which was called: # once (2.20ms+71.2ms) by MongoDB::BEGIN@28 at line 28
use MongoDB::MongoClient;
# spent 73.4ms making 1 call to MongoDB::Connection::BEGIN@28
29
30227µs110µs
# spent 10µs within MongoDB::Connection::BEGIN@30 which was called: # once (10µs+0s) by MongoDB::BEGIN@28 at line 30
use Class::MOP::Class;
# spent 10µs making 1 call to MongoDB::Connection::BEGIN@30
31222µs239µs
# spent 23µs (6+16) within MongoDB::Connection::BEGIN@31 which was called: # once (6µs+16µs) by MongoDB::BEGIN@28 at line 31
use Digest::MD5;
# spent 23µs making 1 call to MongoDB::Connection::BEGIN@31 # spent 16µs making 1 call to Exporter::import
32221µs14µs
# spent 4µs within MongoDB::Connection::BEGIN@32 which was called: # once (4µs+0s) by MongoDB::BEGIN@28 at line 32
use Tie::IxHash;
# spent 4µs making 1 call to MongoDB::Connection::BEGIN@32
33221µs254µs
# spent 30µs (6+24) within MongoDB::Connection::BEGIN@33 which was called: # once (6µs+24µs) by MongoDB::BEGIN@28 at line 33
use Carp 'carp';
# spent 30µs making 1 call to MongoDB::Connection::BEGIN@33 # spent 24µs making 1 call to Exporter::import
342209µs247µs
# spent 42µs (10+33) within MongoDB::Connection::BEGIN@34 which was called: # once (10µs+33µs) by MongoDB::BEGIN@28 at line 34
use boolean;
# spent 42µs making 1 call to MongoDB::Connection::BEGIN@34 # spent 5µs making 1 call to boolean::import
35
36
374925µshas '_client' => (
# spent 25µs making 49 calls to MongoDB::Connection::CORE:match, avg 508ns/call
38 isa => 'MongoDB::MongoClient',
39 is => 'ro',
404921µs handles => [ grep { $_ !~ /^(meta|new)$/ }
# spent 21µs making 49 calls to Class::MOP::Method::name, avg 420ns/call
4199203µs311.7ms map { $_->name } Class::MOP::Class->initialize( 'MongoDB::MongoClient' )->get_all_methods
# spent 7.96ms making 1 call to Moose::has # spent 3.73ms making 1 call to Class::MOP::Class::Immutable::Moose::Meta::Class::get_all_methods # spent 9µs making 1 call to Class::MOP::Class::initialize
42 ]
43);
44
45
46around 'new' => sub {
4728µs my ( $orig, $self, @args ) = @_;
4828.66ms return $self->$orig( _client => MongoDB::MongoClient->new( @args ) );
# spent 8.37ms making 1 call to MongoDB::MongoClient::new # spent 291µs making 1 call to Moose::Object::new
4914µs1261µs};
# spent 261µs making 1 call to Moose::around
50
- -
53sub AUTOLOAD {
54 my $self = shift @_;
55 our $AUTOLOAD;
56
57 my $db = $AUTOLOAD;
58 $db =~ s/.*:://;
59
60 carp sprintf q{AUTOLOADed database method names are deprecated and will be removed in a future release. Use $client->get_database( '%s' ) instead.}, $db;
61
62 return $self->get_database($db);
63}
64
- -
6713µs2129µs__PACKAGE__->meta->make_immutable ( inline_destructor => 0, inline_constructor => 0 );
# spent 116µs making 1 call to Class::MOP::Class::make_immutable # spent 13µs making 1 call to MongoDB::Connection::meta
68
69111µs1;
70
71__END__