← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:02:15 2013

Filename/usr/share/perl5/DateTime/Format/Builder/Parser.pm
StatementsExecuted 563 statements in 5.56ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
111622µs799µsDateTime::Format::Builder::Parser::::BEGIN@626DateTime::Format::Builder::Parser::BEGIN@626
1021569µs3.33msDateTime::Format::Builder::Parser::::create_single_parserDateTime::Format::Builder::Parser::create_single_parser
311194µs3.54msDateTime::Format::Builder::Parser::::sort_parsersDateTime::Format::Builder::Parser::sort_parsers
32191µs3.68msDateTime::Format::Builder::Parser::::create_multiple_parsersDateTime::Format::Builder::Parser::create_multiple_parsers
101187µs87µsDateTime::Format::Builder::Parser::::paramsDateTime::Format::Builder::Parser::params
44482µs82µsDateTime::Format::Builder::Parser::::valid_paramsDateTime::Format::Builder::Parser::valid_params
142165µs85µsDateTime::Format::Builder::Parser::::__ANON__[:170]DateTime::Format::Builder::Parser::__ANON__[:170]
31148µs3.73msDateTime::Format::Builder::Parser::::create_parserDateTime::Format::Builder::Parser::create_parser
101146µs46µsDateTime::Format::Builder::Parser::::params_allDateTime::Format::Builder::Parser::params_all
142139µs39µsDateTime::Format::Builder::Parser::::__ANON__[:171]DateTime::Format::Builder::Parser::__ANON__[:171]
51132µs32µsDateTime::Format::Builder::Parser::::merge_callbacksDateTime::Format::Builder::Parser::merge_callbacks
101132µs32µsDateTime::Format::Builder::Parser::::whose_paramsDateTime::Format::Builder::Parser::whose_params
31126µs26µsDateTime::Format::Builder::Parser::::newDateTime::Format::Builder::Parser::new
11121µs79µsDateTime::Format::Builder::Parser::::BEGIN@8DateTime::Format::Builder::Parser::BEGIN@8
11120µs25µsDateTime::Format::Builder::Parser::::BEGIN@2DateTime::Format::Builder::Parser::BEGIN@2
141120µs20µsDateTime::Format::Builder::Parser::::CORE:matchDateTime::Format::Builder::Parser::CORE:match (opcode)
71114µs14µsDateTime::Format::Builder::Parser::::chain_parsersDateTime::Format::Builder::Parser::chain_parsers
31114µs14µsDateTime::Format::Builder::Parser::::set_makerDateTime::Format::Builder::Parser::set_maker
11111µs65µsDateTime::Format::Builder::Parser::::BEGIN@5DateTime::Format::Builder::Parser::BEGIN@5
11111µs48µsDateTime::Format::Builder::Parser::::BEGIN@4DateTime::Format::Builder::Parser::BEGIN@4
1119µs36µsDateTime::Format::Builder::Parser::::BEGIN@3DateTime::Format::Builder::Parser::BEGIN@3
3119µs9µsDateTime::Format::Builder::Parser::::set_parserDateTime::Format::Builder::Parser::set_parser
0000s0sDateTime::Format::Builder::Parser::::__ANON__[:374]DateTime::Format::Builder::Parser::__ANON__[:374]
0000s0sDateTime::Format::Builder::Parser::::__ANON__[:455]DateTime::Format::Builder::Parser::__ANON__[:455]
0000s0sDateTime::Format::Builder::Parser::::__ANON__[:542]DateTime::Format::Builder::Parser::__ANON__[:542]
0000s0sDateTime::Format::Builder::Parser::::create_single_objectDateTime::Format::Builder::Parser::create_single_object
0000s0sDateTime::Format::Builder::Parser::::failDateTime::Format::Builder::Parser::fail
0000s0sDateTime::Format::Builder::Parser::::makerDateTime::Format::Builder::Parser::maker
0000s0sDateTime::Format::Builder::Parser::::no_parserDateTime::Format::Builder::Parser::no_parser
0000s0sDateTime::Format::Builder::Parser::::on_failDateTime::Format::Builder::Parser::on_fail
0000s0sDateTime::Format::Builder::Parser::::parseDateTime::Format::Builder::Parser::parse
0000s0sDateTime::Format::Builder::Parser::::set_failDateTime::Format::Builder::Parser::set_fail
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package DateTime::Format::Builder::Parser;
2339µs230µs
# spent 25µs (20+5) within DateTime::Format::Builder::Parser::BEGIN@2 which was called: # once (20µs+5µs) by DateTime::Format::MySQL::BEGIN@11 at line 2
use strict;
# spent 25µs making 1 call to DateTime::Format::Builder::Parser::BEGIN@2 # spent 5µs making 1 call to strict::import
3332µs264µs
# spent 36µs (9+27) within DateTime::Format::Builder::Parser::BEGIN@3 which was called: # once (9µs+27µs) by DateTime::Format::MySQL::BEGIN@11 at line 3
use vars qw( $VERSION );
# spent 36µs making 1 call to DateTime::Format::Builder::Parser::BEGIN@3 # spent 28µs making 1 call to vars::import
4337µs285µs
# spent 48µs (11+37) within DateTime::Format::Builder::Parser::BEGIN@4 which was called: # once (11µs+37µs) by DateTime::Format::MySQL::BEGIN@11 at line 4
use Carp qw( croak );
# spent 48µs making 1 call to DateTime::Format::Builder::Parser::BEGIN@4 # spent 37µs making 1 call to Exporter::import
516µs154µs
# spent 65µs (11+54) within DateTime::Format::Builder::Parser::BEGIN@5 which was called: # once (11µs+54µs) by DateTime::Format::MySQL::BEGIN@11 at line 7
use Params::Validate qw(
# spent 54µs making 1 call to Exporter::import
6 validate SCALAR CODEREF UNDEF ARRAYREF
7239µs165µs);
# spent 65µs making 1 call to DateTime::Format::Builder::Parser::BEGIN@5
832.17ms2136µs
# spent 79µs (21+57) within DateTime::Format::Builder::Parser::BEGIN@8 which was called: # once (21µs+57µs) by DateTime::Format::MySQL::BEGIN@11 at line 8
use Scalar::Util qw( weaken );
# spent 79µs making 1 call to DateTime::Format::Builder::Parser::BEGIN@8 # spent 57µs making 1 call to Exporter::import
9
10=head1 NAME
11
- -
2714µs$VERSION = '0.77';
28
29=head1 CONSTRUCTORS
30
- -
33sub on_fail
34{
35 my ($self, $input, $parent) = @_;
36 my $maker = $self->maker;
37 if ( $maker and $maker->can( 'on_fail' ) ) {
38 $maker->on_fail( $input );
39 } else {
40 croak __PACKAGE__.": Invalid date format: $input";
41 }
42}
43
44sub no_parser
45{
46 croak "No parser set for this parser object.";
47}
48
49sub new
50
# spent 26µs within DateTime::Format::Builder::Parser::new which was called 3 times, avg 9µs/call: # 3 times (26µs+0s) by DateTime::Format::Builder::Parser::create_multiple_parsers at line 394, avg 9µs/call
{
5131µs my $class = shift;
5231µs $class = ref($class)||$class;
5331µs my $i = 0;
54318µs my $self = bless {
55 on_fail => \&on_fail,
56 parser => \&no_parser,
57 }, $class;
58
59316µs return $self;
60}
61
62sub maker { $_[0]->{maker} }
63
64sub set_maker
65
# spent 14µs within DateTime::Format::Builder::Parser::set_maker which was called 3 times, avg 5µs/call: # 3 times (14µs+0s) by DateTime::Format::Builder::Parser::create_multiple_parsers at line 408, avg 5µs/call
{
6632µs my $self = shift;
6732µs my $maker = shift;
68
6933µs $self->{maker} = $maker;
7032µs weaken $self->{maker}
71 if ref $self->{maker};
72
7339µs return $self;
74}
75
76sub fail
77{
78 my ($self, $parent, $input) = @_;
79 $self->{on_fail}->( $self, $input, $parent );
80}
81
82sub parse
83{
84 my ( $self, $parent, $input, @args ) = @_;
85 my $r = $self->{parser}->( $parent, $input, @args );
86 $self->fail( $parent, $input ) unless defined $r;
87 $r;
88}
89
90sub set_parser
91
# spent 9µs within DateTime::Format::Builder::Parser::set_parser which was called 3 times, avg 3µs/call: # 3 times (9µs+0s) by DateTime::Format::Builder::Parser::create_multiple_parsers at line 456, avg 3µs/call
{
9232µs my ($self, $parser) = @_;
9332µs $self->{parser} = $parser;
9438µs $self;
95}
96
97sub set_fail
98{
99 my ($self, $fail) = @_;
100 $self->{on_fail} = $fail;
101 $self;
102}
103
104=head1 METHODS
105
- -
12113µsmy @callbacks = qw( on_match on_fail postprocess preprocess );
122
123{
124
1251900ns=head3 Common parameters
126
- -
164 my %params = (
165 common => {
166 length => {
167 type => SCALAR|ARRAYREF,
168 optional => 1,
169 callbacks => {
1701494µs1420µs
# spent 85µs (65+20) within DateTime::Format::Builder::Parser::__ANON__[/usr/share/perl5/DateTime/Format/Builder/Parser.pm:170] which was called 14 times, avg 6µs/call: # 7 times (35µs+11µs) by Params::Validate::_validate at line 311, avg 7µs/call # 7 times (30µs+9µs) by Params::Validate::_validate at line 333, avg 6µs/call
'is an int' => sub { ref $_[0] ? 1 : $_[0] !~ /\D/ },
# spent 20µs making 14 calls to DateTime::Format::Builder::Parser::CORE:match, avg 1µs/call
1711467µs
# spent 39µs within DateTime::Format::Builder::Parser::__ANON__[/usr/share/perl5/DateTime/Format/Builder/Parser.pm:171] which was called 14 times, avg 3µs/call: # 7 times (20µs+0s) by Params::Validate::_validate at line 333, avg 3µs/call # 7 times (18µs+0s) by Params::Validate::_validate at line 311, avg 3µs/call
'not empty' => sub { ref $_[0] ? @{$_[0]} >= 1 : 1 },
172 }
173 },
174
175 # Stuff used by callbacks
176 label => { type => SCALAR, optional => 1 },
177129µs ( map { $_ => { type => CODEREF|ARRAYREF, optional => 1 } } @callbacks ),
178 },
179 );
180
181=head3 params
182
- -
191 sub params
192
# spent 87µs within DateTime::Format::Builder::Parser::params which was called 10 times, avg 9µs/call: # 10 times (87µs+0s) by DateTime::Format::Builder::Parser::create_single_parser at line 333, avg 9µs/call
{
193106µs my $self = shift;
194105µs my $caller = ref $self || $self;
1951089µs return { map { %$_ } @params{ $caller, 'common' } }
196 }
197
198=head3 params_all
199
- -
2071400ns my $all_params;
208 sub params_all
209
# spent 46µs within DateTime::Format::Builder::Parser::params_all which was called 10 times, avg 5µs/call: # 10 times (46µs+0s) by DateTime::Format::Builder::Parser::create_single_parser at line 311, avg 5µs/call
{
2101033µs return $all_params if defined $all_params;
211113µs my %all_params = map { %$_ } values %params;
212211µs $_->{optional} = 1 for values %all_params;
21315µs $all_params = \%all_params;
214 }
215
216=head3 valid_params
217
- -
22611µs my %inverse;
227 sub valid_params
228
# spent 82µs within DateTime::Format::Builder::Parser::valid_params which was called 4 times, avg 21µs/call: # once (22µs+0s) by DateTime::Format::Builder::Parser::BEGIN@1.3 at line 71 of DateTime/Format/Builder/Parser/Quick.pm # once (22µs+0s) by DateTime::Format::Builder::Parser::BEGIN@1.4 at line 101 of DateTime/Format/Builder/Parser/Regex.pm # once (20µs+0s) by DateTime::Format::Builder::Parser::BEGIN@1 at line 84 of DateTime/Format/Builder/Parser/Dispatch.pm # once (18µs+0s) by DateTime::Format::Builder::Parser::BEGIN@1.5 at line 35 of DateTime/Format/Builder/Parser/Strptime.pm
{
22944µs my $self = shift;
23048µs my $from = (caller)[0];
23149µs my %args = @_;
23246µs $params{ $from } = \%args;
233417µs for (keys %args)
234 {
235 # %inverse contains keys matching all the
236 # possible params; values are the class if and
237 # only if that class is the only one that uses
238 # the given param.
239822µs $inverse{$_} = exists $inverse{$_} ? undef : $from;
240 }
24142µs undef $all_params;
242436µs 1;
243 }
244
245=head3 whose_params
246
- -
254 sub whose_params
255
# spent 32µs within DateTime::Format::Builder::Parser::whose_params which was called 10 times, avg 3µs/call: # 10 times (32µs+0s) by DateTime::Format::Builder::Parser::create_single_parser at line 323, avg 3µs/call
{
256106µs my $param = shift;
2571038µs return $inverse{$param};
258 }
259}
260
261=head2 Organising and Creating Parsers
262
- -
296sub create_single_object
297{
298 my ( $self ) = shift;
299 my $obj = $self->new;
300 my $parser = $self->create_single_parser( @_ );
301
302 $obj->set_parser( $parser );
303}
304
305sub create_single_parser
306
# spent 3.33ms (569µs+2.76) within DateTime::Format::Builder::Parser::create_single_parser which was called 10 times, avg 333µs/call: # 7 times (422µs+2.03ms) by DateTime::Format::Builder::Parser::sort_parsers at line 501, avg 350µs/call # 3 times (148µs+733µs) by DateTime::Format::Builder::Parser::sort_parsers at line 512, avg 294µs/call
{
307106µs my $class = shift;
308105µs return $_[0] if ref $_[0] eq 'CODE'; # already code
309103µs @_ = %{ $_[0] } if ref $_[0] eq 'HASH'; # turn hashref into hash
310 # ordinary boring sort
31110744µs44957µs my %args = validate( @_, params_all() );
# spent 817µs making 10 calls to Params::Validate::_validate, avg 82µs/call # spent 46µs making 7 calls to DateTime::Format::Builder::Parser::__ANON__[DateTime/Format/Builder/Parser.pm:170], avg 7µs/call # spent 46µs making 10 calls to DateTime::Format::Builder::Parser::params_all, avg 5µs/call # spent 31µs making 10 calls to DateTime::Format::Builder::Parser::Regex::__ANON__[DateTime/Format/Builder/Parser/Regex.pm:84], avg 3µs/call # spent 18µs making 7 calls to DateTime::Format::Builder::Parser::__ANON__[DateTime/Format/Builder/Parser.pm:171], avg 3µs/call
# spent 41µs executing statements in 10 string evals (merged)
312
313 # Determine variables for ease of reference.
3141014µs for (@callbacks)
315 {
3164054µs532µs $args{$_} = $class->merge_callbacks( $args{$_} ) if $args{$_};
# spent 32µs making 5 calls to DateTime::Format::Builder::Parser::merge_callbacks, avg 6µs/call
317 }
318
319 # Determine parser class
320102µs my $from;
3211017µs for ( keys %args )
322 {
3231022µs1032µs $from = whose_params( $_ );
# spent 32µs making 10 calls to DateTime::Format::Builder::Parser::whose_params, avg 3µs/call
324108µs next if (not defined $from) or ($from eq 'common');
325109µs last;
326 }
327103µs croak "Could not identify a parsing module to use." unless $from;
328
329 # Find and call parser creation method
3301080µs1036µs my $method = $from->can( "create_parser" )
# spent 36µs making 10 calls to UNIVERSAL::can, avg 4µs/call
331 or croak "Can't create a $_ parser (no appropriate create_parser method)";
3321026µs my @args = %args;
33310720µs44926µs %args = validate( @args, $from->params() );
# spent 747µs making 10 calls to Params::Validate::_validate, avg 75µs/call # spent 87µs making 10 calls to DateTime::Format::Builder::Parser::params, avg 9µs/call # spent 39µs making 7 calls to DateTime::Format::Builder::Parser::__ANON__[DateTime/Format/Builder/Parser.pm:170], avg 6µs/call # spent 32µs making 10 calls to DateTime::Format::Builder::Parser::Regex::__ANON__[DateTime/Format/Builder/Parser/Regex.pm:84], avg 3µs/call # spent 20µs making 7 calls to DateTime::Format::Builder::Parser::__ANON__[DateTime/Format/Builder/Parser.pm:171], avg 3µs/call
# spent 42µs executing statements in 10 string evals (merged)
3341078µs10966µs $from->$method( %args );
# spent 966µs making 10 calls to DateTime::Format::Builder::Parser::Regex::create_parser, avg 97µs/call
335}
336
337=head3 merge_callbacks
338
- -
344sub merge_callbacks
345
# spent 32µs within DateTime::Format::Builder::Parser::merge_callbacks which was called 5 times, avg 6µs/call: # 5 times (32µs+0s) by DateTime::Format::Builder::Parser::create_single_parser at line 316, avg 6µs/call
{
34654µs my $self = shift;
347
34852µs return unless @_; # No arguments
34952µs return unless $_[0]; # Irrelevant argument
35055µs my @callbacks = @_;
35153µs if (@_ == 1)
352 {
353522µs return $_[0] if ref $_[0] eq 'CODE';
354 @callbacks = @{ $_[0] } if ref $_[0] eq 'ARRAY';
355 }
356 return unless @callbacks;
357
358 for (@callbacks)
359 {
360 croak "All callbacks must be coderefs!" unless ref $_ eq 'CODE';
361 }
362
363 return sub {
364 my $rv;
365 my %args = @_;
366 for my $cb (@callbacks)
367 {
368 $rv = $cb->( %args );
369 return $rv unless $rv;
370 # Ugh. Symbiotic. All but postprocessor return the date.
371 $args{input} = $rv unless $args{parsed};
372 }
373 $rv;
374 };
375}
376
377=head2 create_multiple_parsers
378
- -
389sub create_multiple_parsers
390
# spent 3.68ms (91µs+3.59) within DateTime::Format::Builder::Parser::create_multiple_parsers which was called 3 times, avg 1.23ms/call: # 2 times (50µs+602µs) by DateTime::Format::Builder::Parser::create_parser at line 608, avg 326µs/call # once (40µs+2.99ms) by DateTime::Format::Builder::Parser::create_parser at line 600
{
39132µs my $class = shift;
39233µs my ($options, @specs) = @_;
393
39436µs326µs my $obj = $class->new;
# spent 26µs making 3 calls to DateTime::Format::Builder::Parser::new, avg 9µs/call
395
396 # Organise the specs, and transform them into parsers.
39739µs33.54ms my ($lengths, $others) = $class->sort_parsers( $options, \@specs );
# spent 3.54ms making 3 calls to DateTime::Format::Builder::Parser::sort_parsers, avg 1.18ms/call
398
399 # Merge callbacks if any.
40034µs for ( 'preprocess' ) {
40134µs $options->{$_} = $class->merge_callbacks(
402 $options->{$_}
403 ) if $options->{$_};
404 }
405 # Custom fail method?
40632µs $obj->set_fail( $options->{on_fail} ) if exists $options->{on_fail};
407 # Who's our maker?
40839µs314µs $obj->set_maker( $options->{maker} ) if exists $options->{maker};
# spent 14µs making 3 calls to DateTime::Format::Builder::Parser::set_maker, avg 5µs/call
409
410 # We don't want to save the whole options hash as a closure, since
411 # that can cause a circular reference when $options->{maker} is
412 # set.
41332µs my $preprocess = $options->{preprocess};
414
415 # These are the innards of a multi-parser.
416 my $parser = sub {
417 my ($self, $date, @args) = @_;
418 return unless defined $date;
419
420 # Parameters common to the callbacks. Pre-prepared.
421 my %param = (
422 self => $self,
423 ( @args ? (args => \@args) : () ),
424 );
425
426 my %p;
427 # Preprocess and potentially fill %p
428 if ($preprocess)
429 {
430 $date = $preprocess->(
431 input => $date, parsed => \%p, %param
432 );
433 }
434
435 # Find length parser
436 if (%$lengths)
437 {
438 my $length = length $date;
439 my $parser = $lengths->{$length};
440 if ($parser)
441 {
442 # Found one, call it with _copy_ of %p
443 my $dt = $parser->( $self, $date, { %p }, @args );
444 return $dt if defined $dt;
445 }
446 }
447 # Or calls all others, with _copy_ of %p
448 for my $parser (@$others)
449 {
450 my $dt = $parser->( $self, $date, { %p }, @args );
451 return $dt if defined $dt;
452 }
453 # Failed, return undef.
454 return;
455312µs };
456319µs39µs $obj->set_parser( $parser );
# spent 9µs making 3 calls to DateTime::Format::Builder::Parser::set_parser, avg 3µs/call
457}
458
459=head2 sort_parsers
460
- -
483sub sort_parsers
484
# spent 3.54ms (194µs+3.35) within DateTime::Format::Builder::Parser::sort_parsers which was called 3 times, avg 1.18ms/call: # 3 times (194µs+3.35ms) by DateTime::Format::Builder::Parser::create_multiple_parsers at line 397, avg 1.18ms/call
{
48532µs my $class = shift;
48632µs my ($options, $specs) = @_;
48731µs my (%lengths, @others);
488
48934µs for my $spec (@$specs)
490 {
491 # Put coderefs straight into the 'other' heap.
4921023µs if (ref $spec eq 'CODE')
493 {
494 push @others, $spec;
495 }
496 # Specifications...
497 elsif (ref $spec eq 'HASH')
498 {
4991011µs if (exists $spec->{length})
500 {
501740µs72.45ms my $code = $class->create_single_parser( %$spec );
# spent 2.45ms making 7 calls to DateTime::Format::Builder::Parser::create_single_parser, avg 350µs/call
502 my @lengths = ref $spec->{length}
503712µs ? @{ $spec->{length} }
504 : ( $spec->{length} );
505711µs for my $length ( @lengths )
506 {
507721µs push @{ $lengths{$length} }, $code;
508 }
509 }
510 else
511 {
512314µs3880µs push @others, $class->create_single_parser( %$spec );
# spent 880µs making 3 calls to DateTime::Format::Builder::Parser::create_single_parser, avg 294µs/call
513 }
514 }
515 # Something else
516 else
517 {
518 croak "Invalid specification in list.";
519 }
520 }
521
522326µs714µs while (my ($length, $parsers) = each %lengths)
# spent 14µs making 7 calls to DateTime::Format::Builder::Parser::chain_parsers, avg 2µs/call
523 {
524 $lengths{$length} = $class->chain_parsers( $parsers );
525 }
526
527314µs return ( \%lengths, \@others );
528}
529
530sub chain_parsers
531
# spent 14µs within DateTime::Format::Builder::Parser::chain_parsers which was called 7 times, avg 2µs/call: # 7 times (14µs+0s) by DateTime::Format::Builder::Parser::sort_parsers at line 522, avg 2µs/call
{
53274µs my ($self, $parsers) = @_;
533719µs return $parsers->[0] if @$parsers == 1;
534 return sub {
535 my $self = shift;
536 for my $parser (@$parsers)
537 {
538 my $rv = $self->$parser( @_ );
539 return $rv if defined $rv;
540 }
541 return undef;
542 };
543}
544
545=head2 create_parser
546
- -
582sub create_parser
583
# spent 3.73ms (48µs+3.68) within DateTime::Format::Builder::Parser::create_parser which was called 3 times, avg 1.24ms/call: # 3 times (48µs+3.68ms) by DateTime::Format::Builder::create_parser at line 156 of DateTime/Format/Builder.pm, avg 1.24ms/call
{
58432µs my $class = shift;
58532µs if (not ref $_[0])
586 {
587 # Simple case of single specification as a hash
588 return $class->create_single_object( @_ )
589 }
590
591 # Let's see if we were given an options block
5923900ns my %options;
59333µs while ( ref $_[0] eq 'ARRAY' )
594 {
59531µs my $options = shift;
596314µs %options = ( %options, @$options );
597 }
598
599 # Now, can we create a multi-parser out of the remaining arguments?
60039µs13.03ms if (ref $_[0] eq 'HASH' or ref $_[0] eq 'CODE')
# spent 3.03ms making 1 call to DateTime::Format::Builder::Parser::create_multiple_parsers
601 {
602 return $class->create_multiple_parsers( \%options, @_ );
603 }
604 else
605 {
606 # If it wasn't a HASH or CODE, then it was (ideally)
607 # a list of pairs describing a single specification.
608212µs2652µs return $class->create_multiple_parsers( \%options, { @_ } );
# spent 652µs making 2 calls to DateTime::Format::Builder::Parser::create_multiple_parsers, avg 326µs/call
609 }
610}
611
612=head1 FINDING IMPLEMENTATIONS
613
- -
624# Find all our workers
625{
6264248µs2809µs
# spent 799µs (622+177) within DateTime::Format::Builder::Parser::BEGIN@626 which was called: # once (622µs+177µs) by DateTime::Format::MySQL::BEGIN@11 at line 626
use Class::Factory::Util;
# spent 799µs making 1 call to DateTime::Format::Builder::Parser::BEGIN@626 # spent 11µs making 1 call to Class::Factory::Util::import
627
628110µs1439µs foreach my $worker ( __PACKAGE__->subclasses )
# spent 439µs making 1 call to Class::Factory::Util::_subclasses
629 {
6305232µs eval "use DateTime::Format::Builder::Parser::$worker;";
# spent 148µs executing statements in string eval
# includes 527µs spent executing 1 call to 1 sub defined therein. # spent 147µs executing statements in string eval
# includes 701µs spent executing 1 call to 1 sub defined therein. # spent 138µs executing statements in string eval
# includes 466µs spent executing 1 call to 1 sub defined therein. # spent 108µs executing statements in string eval
# includes 432µs spent executing 1 call to 1 sub defined therein. # spent 14µs executing statements in string eval
# includes 10µs spent executing 1 call to 1 sub defined therein.
63155µs die $@ if $@;
632 }
633}
634
635117µs1;
636
637__END__
 
# spent 20µs within DateTime::Format::Builder::Parser::CORE:match which was called 14 times, avg 1µs/call: # 14 times (20µs+0s) by DateTime::Format::Builder::Parser::__ANON__[/usr/share/perl5/DateTime/Format/Builder/Parser.pm:170] at line 170, avg 1µs/call
sub DateTime::Format::Builder::Parser::CORE:match; # opcode
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.