Profile of Mouse/Object.pm

Filename	/usr/local/lib/perl/5.10.1/Mouse/Object.pm
Statements	Executed 4 statements in 73µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1000002	2	1	3.66s	3.66s	Mouse::Object::::DESTROYMouse::Object::DESTROY (xsub)
3	3	3	420µs	171ms	Mouse::Object::::newMouse::Object::new (xsub)
45	1	1	135µs	135µs	Mouse::Object::::BUILDARGSMouse::Object::BUILDARGS (xsub)
1	1	1	15µs	71µs	Mouse::Object::::BEGIN@2Mouse::Object::BEGIN@2
0	0	0	0s	0s	Mouse::Object::::DOESMouse::Object::DOES

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Mouse::Object;
2	3	70µs	2	127µs	# spent 71µs (15+56) within Mouse::Object::BEGIN@2 which was called: # once (15µs+56µs) by Mouse::BEGIN@17 at line 2 use Mouse::Util qw(does dump meta); # enables strict and warnings # spent 71µs making 1 call to Mouse::Object::BEGIN@2 # spent 56µs making 1 call to Mouse::Exporter::do_import
3					# all the stuff are defined in XS or PP
4
5					sub DOES {
6					my($self, $class_or_role_name) = @_;
7					return $self->isa($class_or_role_name) \|\| $self->does($class_or_role_name);
8					}
9
10	1	3µs			1;
11					__END__

					# spent 135µs within Mouse::Object::BUILDARGS which was called 45 times, avg 3µs/call: # 45 times (135µs+0s) by Mouse::Meta::Attribute::new at line 54 of Mouse/Meta/Attribute.pm, avg 3µs/call sub Mouse::Object::BUILDARGS; # xsub
					# spent 3.66s within Mouse::Object::DESTROY which was called 1000002 times, avg 4µs/call: # 1000000 times (3.66s+0s) by MongoDB::Collection::insert at line 21 of mongo_pain.pl, avg 4µs/call # 2 times (6µs+0s) by main::NULL at line 0 of mongo_pain.pl, avg 3µs/call sub Mouse::Object::DESTROY; # xsub
					# spent 171ms (420µs+170) within Mouse::Object::new which was called 3 times, avg 56.9ms/call: # once (310µs+166ms) by main::RUNTIME at line 13 of mongo_pain.pl # once (62µs+4.13ms) by MongoDB::Connection::get_database at line 531 of MongoDB/Connection.pm # once (48µs+56µs) by MongoDB::Database::get_collection at line 108 of MongoDB/Database.pm sub Mouse::Object::new; # xsub