Profile of Data/Printer/Filter/FORMAT.pm

Filename	/home/hejohns/perl5/lib/perl5/Data/Printer/Filter/FORMAT.pm
Statements	Executed 8 statements in 77µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	8µs	9µs	Data::Printer::Filter::FORMAT::BEGIN@2
1	1	1	3µs	16µs	Data::Printer::Filter::FORMAT::BEGIN@3
1	1	1	3µs	17µs	Data::Printer::Filter::FORMAT::BEGIN@4
0	0	0	0s	0s	Data::Printer::Filter::FORMAT::::parseData::Printer::Filter::FORMAT::parse

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Data::Printer::Filter::FORMAT;
2	2	17µs	2	10µs	# spent 9µs (8+1) within Data::Printer::Filter::FORMAT::BEGIN@2 which was called: # once (8µs+1µs) by Data::Printer::Object::BEGIN@58 at line 2 use strict; # spent 9µs making 1 call to Data::Printer::Filter::FORMAT::BEGIN@2 # spent 1µs making 1 call to strict::import
3	2	12µs	2	28µs	# spent 16µs (3+13) within Data::Printer::Filter::FORMAT::BEGIN@3 which was called: # once (3µs+13µs) by Data::Printer::Object::BEGIN@58 at line 3 use warnings; # spent 16µs making 1 call to Data::Printer::Filter::FORMAT::BEGIN@3 # spent 13µs making 1 call to warnings::import
4	2	45µs	2	31µs	# spent 17µs (3+14) within Data::Printer::Filter::FORMAT::BEGIN@4 which was called: # once (3µs+14µs) by Data::Printer::Object::BEGIN@58 at line 4 use Data::Printer::Filter; # spent 17µs making 1 call to Data::Printer::Filter::FORMAT::BEGIN@4 # spent 14µs making 1 call to Data::Printer::Filter::import
5
6	1	1µs	1	12µs	filter 'FORMAT' => \&parse; # spent 12µs making 1 call to Data::Printer::Filter::__ANON__[Data/Printer/Filter.pm:23]
7
8
9					sub parse {
10					my ($format, $ddp) = @_;
11					return $ddp->maybe_colorize('FORMAT', 'format');
12					};
13
14	1	2µs			1;