← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mentat.storage.mongo.pl
  Run on Tue Jun 24 10:04:38 2014
Reported on Tue Jun 24 10:05:28 2014

Filename/usr/local/lib/perl/5.14.2/MongoDB/Connection.pm
StatementsExecuted 124 statements in 950µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1112.28ms75.6msMongoDB::Connection::::BEGIN@28MongoDB::Connection::BEGIN@28
1111.83ms305msMongoDB::Connection::::BEGIN@24MongoDB::Connection::BEGIN@24
1111.17ms54.4msMongoDB::Connection::::BEGIN@27MongoDB::Connection::BEGIN@27
11111µs11µsMongoDB::Connection::::BEGIN@30MongoDB::Connection::BEGIN@30
11110µs10µsMongoDB::Connection::::BEGIN@26MongoDB::Connection::BEGIN@26
1119µs42µsMongoDB::Connection::::BEGIN@34MongoDB::Connection::BEGIN@34
1117µs23µsMongoDB::Connection::::BEGIN@31MongoDB::Connection::BEGIN@31
1116µs30µsMongoDB::Connection::::BEGIN@33MongoDB::Connection::BEGIN@33
1116µs6µ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
24292µs2310ms
# spent 305ms (1.83+303) within MongoDB::Connection::BEGIN@24 which was called: # once (1.83ms+303ms) by MongoDB::BEGIN@28 at line 24
use Moose;
# spent 305ms making 1 call to MongoDB::Connection::BEGIN@24 # spent 5.06ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:519]
25
26226µs110µs
# spent 10µs within MongoDB::Connection::BEGIN@26 which was called: # once (10µs+0s) by MongoDB::BEGIN@28 at line 26
use MongoDB;
# spent 10µs making 1 call to MongoDB::Connection::BEGIN@26
272128µs154.4ms
# spent 54.4ms (1.17+53.3) within MongoDB::Connection::BEGIN@27 which was called: # once (1.17ms+53.3ms) by MongoDB::BEGIN@28 at line 27
use MongoDB::Cursor;
# spent 54.4ms making 1 call to MongoDB::Connection::BEGIN@27
282151µs175.6ms
# spent 75.6ms (2.28+73.3) within MongoDB::Connection::BEGIN@28 which was called: # once (2.28ms+73.3ms) by MongoDB::BEGIN@28 at line 28
use MongoDB::MongoClient;
# spent 75.6ms making 1 call to MongoDB::Connection::BEGIN@28
29
30228µs111µs
# spent 11µs within MongoDB::Connection::BEGIN@30 which was called: # once (11µs+0s) by MongoDB::BEGIN@28 at line 30
use Class::MOP::Class;
# spent 11µs making 1 call to MongoDB::Connection::BEGIN@30
31223µs240µs
# spent 23µs (7+16) within MongoDB::Connection::BEGIN@31 which was called: # once (7µ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
32220µs16µs
# spent 6µs within MongoDB::Connection::BEGIN@32 which was called: # once (6µs+0s) by MongoDB::BEGIN@28 at line 32
use Tie::IxHash;
# spent 6µ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
342226µs247µs
# spent 42µs (9+33) within MongoDB::Connection::BEGIN@34 which was called: # once (9µ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
374980µs4924µshas '_client' => (
# spent 24µs making 49 calls to MongoDB::Connection::CORE:match, avg 496ns/call
38 isa => 'MongoDB::MongoClient',
39 is => 'ro',
404991µs4920µs handles => [ grep { $_ !~ /^(meta|new)$/ }
# spent 20µs making 49 calls to Class::MOP::Method::name, avg 418ns/call
41132µs312.0ms map { $_->name } Class::MOP::Class->initialize( 'MongoDB::MongoClient' )->get_all_methods
# spent 8.20ms making 1 call to Moose::has # spent 3.84ms 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 {
4712µs my ( $orig, $self, @args ) = @_;
4819µs29.53ms return $self->$orig( _client => MongoDB::MongoClient->new( @args ) );
# spent 9.18ms making 1 call to MongoDB::MongoClient::new # spent 350µs making 1 call to Moose::Object::new
4914µs1266µs};
# spent 266µ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µs2135µs__PACKAGE__->meta->make_immutable ( inline_destructor => 0, inline_constructor => 0 );
# spent 118µs making 1 call to Class::MOP::Class::make_immutable # spent 17µs making 1 call to MongoDB::Connection::meta
68
69112µs1;
70
71__END__