Profile of Markdent/Role/BalancedEvent.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Markdent/Role/BalancedEvent.pm
Statements	Executed 49 statements in 2.40ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
8	1	1	544µs	7.84ms	Markdent::Role::BalancedEvent::__ANON__[:41]
1	1	1	94µs	926µs	Markdent::Role::BalancedEvent::BEGIN@11
1	1	1	76µs	16.4ms	Markdent::Role::BalancedEvent::BEGIN@10
1	1	1	51µs	51µs	Markdent::Role::BalancedEvent::BEGIN@2
1	1	1	44µs	222µs	Markdent::Role::BalancedEvent::BEGIN@13
1	1	1	43µs	22.2ms	Markdent::Role::BalancedEvent::BEGIN@14
1	1	1	39µs	106µs	Markdent::Role::BalancedEvent::BEGIN@7
1	1	1	39µs	56µs	Markdent::Role::BalancedEvent::BEGIN@6
1	1	1	39µs	215µs	Markdent::Role::BalancedEvent::BEGIN@9
0	0	0	0s	0s	Markdent::Role::BalancedEvent::__ANON__[:37]
0	0	0	0s	0s	Markdent::Role::BalancedEvent::__ANON__[:40]

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Markdent::Role::BalancedEvent;
2					# spent 51µs within Markdent::Role::BalancedEvent::BEGIN@2 which was called: # once (51µs+0s) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 4 BEGIN {
3	1	30µs			$Markdent::Role::BalancedEvent::VERSION = '0.17';
4	1	76µs	1	51µs	} # spent 51µs making 1 call to Markdent::Role::BalancedEvent::BEGIN@2
5
6	3	93µs	2	73µs	# spent 56µs (39+17) within Markdent::Role::BalancedEvent::BEGIN@6 which was called: # once (39µs+17µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 6 use strict; # spent 56µs making 1 call to Markdent::Role::BalancedEvent::BEGIN@6 # spent 17µs making 1 call to strict::import
7	3	106µs	2	173µs	# spent 106µs (39+67) within Markdent::Role::BalancedEvent::BEGIN@7 which was called: # once (39µs+67µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 7 use warnings; # spent 106µs making 1 call to Markdent::Role::BalancedEvent::BEGIN@7 # spent 67µs making 1 call to warnings::import
8
9	3	124µs	2	391µs	# spent 215µs (39+176) within Markdent::Role::BalancedEvent::BEGIN@9 which was called: # once (39µs+176µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 9 use List::AllUtils qw( all ); # spent 215µs making 1 call to Markdent::Role::BalancedEvent::BEGIN@9 # spent 176µs making 1 call to Exporter::import
10	3	190µs	2	32.7ms	# spent 16.4ms (76µs+16.3) within Markdent::Role::BalancedEvent::BEGIN@10 which was called: # once (76µs+16.3ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 10 use Markdent::Types qw( ArrayRef Str ); # spent 16.4ms making 1 call to Markdent::Role::BalancedEvent::BEGIN@10 # spent 16.3ms making 1 call to MooseX::Types::Combine::import
11	3	143µs	2	1.76ms	# spent 926µs (94+832) within Markdent::Role::BalancedEvent::BEGIN@11 which was called: # once (94µs+832µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 11 use MooseX::Params::Validate qw( pos_validated_list ); # spent 926µs making 1 call to Markdent::Role::BalancedEvent::BEGIN@11 # spent 832µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:756]
12
13	3	107µs	2	400µs	# spent 222µs (44+178) within Markdent::Role::BalancedEvent::BEGIN@13 which was called: # once (44µs+178µs) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 13 use namespace::autoclean; # spent 222µs making 1 call to Markdent::Role::BalancedEvent::BEGIN@13 # spent 178µs making 1 call to namespace::autoclean::import
14	3	852µs	2	44.4ms	# spent 22.2ms (43µs+22.2) within Markdent::Role::BalancedEvent::BEGIN@14 which was called: # once (43µs+22.2ms) by Class::MOP::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Class/MOP.pm:118] at line 14 use MooseX::Role::Parameterized; # spent 22.2ms making 1 call to Markdent::Role::BalancedEvent::BEGIN@14 # spent 22.2ms making 1 call to Moose::Exporter::__ANON__[Moose/Exporter.pm:456]
15
16	1	34µs	3	31.9ms	parameter compare => ( # spent 26.4ms making 1 call to MooseX::Role::Parameterized::parameter # spent 5.14ms making 1 call to __TYPE__::ArrayRef # spent 370µs making 1 call to __TYPE__::Str
17					isa => ArrayRef[Str],
18					);
19
20					# spent 7.84ms (544µs+7.29) within Markdent::Role::BalancedEvent::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Markdent/Role/BalancedEvent.pm:41] which was called 8 times, avg 980µs/call: # 8 times (544µs+7.29ms) by MooseX::Role::Parameterized::Meta::Role::Parameterizable::generate_role at line 94 of MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm, avg 980µs/call role {
21	24	486µs			my $p = shift;
22
23			8	114µs	my @compare = @{ $p->compare() \|\| [] }; # spent 114µs making 8 calls to Class::MOP::Class::__ANON__::SERIAL::14::compare, avg 14µs/call
24
25					method balances_event => sub {
26					my $self = shift;
27					my ($other) = pos_validated_list( \@_, { does => 'Markdent::Role::Event' } );
28
29					return 0 unless $self->name() eq $other->name();
30
31					return 0
32					unless ( $self->is_start() && $other->is_end() )
33					\|\| ( $self->is_end() && $other->is_start() );
34
35					return 1 unless @compare;
36
37					return all { $self->$_() eq $other->$_() } @compare;
38
39					return 0;
40			8	7.18ms	}; # spent 7.18ms making 8 calls to MooseX::Role::Parameterized::method, avg 897µs/call
41	1	22µs	1	145µs	}; # spent 145µs making 1 call to MooseX::Role::Parameterized::role
42
43	1	78µs			1;
44
45					# ABSTRACT: A parameterized role for events which can check if they match balance another event
46
- -
49					=pod
50
- -
106	1	60µs	1	27.2ms	__END__ # spent 27.2ms making 1 call to B::Hooks::EndOfScope::__ANON__[B/Hooks/EndOfScope.pm:26]