← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/local/src/github.com/foswiki/core/bin/view
  Run on Sun Dec 4 17:17:59 2011
Reported on Sun Dec 4 17:27:26 2011

Filename/usr/local/src/github.com/foswiki/core/lib/Foswiki/Serialise/Simplified.pm
StatementsExecuted 14 statements in 464µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11132µs40µsFoswiki::Serialise::Simplified::::BEGIN@13Foswiki::Serialise::Simplified::BEGIN@13
11125µs25µsFoswiki::Serialise::Simplified::::BEGIN@15Foswiki::Serialise::Simplified::BEGIN@15
11121µs42µsFoswiki::Serialise::Simplified::::BEGIN@14Foswiki::Serialise::Simplified::BEGIN@14
11120µs20µsFoswiki::Serialise::Simplified::::newFoswiki::Serialise::Simplified::new
11111µs11µsFoswiki::Serialise::Simplified::::writeFoswiki::Serialise::Simplified::write
0000s0sFoswiki::Serialise::Simplified::::readFoswiki::Serialise::Simplified::read
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# See bottom of file for license and copyright information
2
3=begin TML
4
5---+ package Foswiki::Serialise::Simplified
6
7This is the style=perl serialiseation used by System.VarQUERY
8
9=cut
10
11package Foswiki::Serialise::Simplified;
12
13255µs249µs
# spent 40µs (32+8) within Foswiki::Serialise::Simplified::BEGIN@13 which was called: # once (32µs+8µs) by Foswiki::Serialise::getSerialiser at line 13
use strict;
# spent 40µs making 1 call to Foswiki::Serialise::Simplified::BEGIN@13 # spent 8µs making 1 call to strict::import
14251µs264µs
# spent 42µs (21+21) within Foswiki::Serialise::Simplified::BEGIN@14 which was called: # once (21µs+21µs) by Foswiki::Serialise::getSerialiser at line 14
use warnings;
# spent 42µs making 1 call to Foswiki::Serialise::Simplified::BEGIN@14 # spent 21µs making 1 call to warnings::import
152314µs125µs
# spent 25µs within Foswiki::Serialise::Simplified::BEGIN@15 which was called: # once (25µs+0s) by Foswiki::Serialise::getSerialiser at line 15
use Foswiki::Serialise;
# spent 25µs making 1 call to Foswiki::Serialise::Simplified::BEGIN@15
16
17=begin TML
18
19---++ ClassMethod new( $class, ) -> $cereal
20
21=cut
22
23
# spent 20µs within Foswiki::Serialise::Simplified::new which was called: # once (20µs+0s) by Foswiki::Serialise::getSerialiser at line 81 of /usr/local/src/github.com/foswiki/core/lib/Foswiki/Serialise.pm
sub new {
2412µs my $class = shift;
25114µs my $this = bless( {}, $class );
2618µs return $this;
27}
28
29# Default serialiser for QUERY
30
# spent 11µs within Foswiki::Serialise::Simplified::write which was called: # once (11µs+0s) by Foswiki::Serialise::serialise at line 39 of /usr/local/src/github.com/foswiki/core/lib/Foswiki/Serialise.pm
sub write {
3112µs my $module = shift;
3212µs my ( $session, $result ) = @_;
3312µs if ( ref($result) eq 'ARRAY' ) {
34
35 # If any of the results is non-scalar, have to perl it
36 foreach my $v (@$result) {
37 if ( ref($v) ) {
38 return Foswiki::Serialise::serialise( $session, $result,
39 'Perl' );
40 }
41 }
42 return join( ',', @$result );
43 }
44 elsif ( ref($result) ) {
45 return Foswiki::Serialise::serialise( $session, $result, 'Perl' );
46 }
47 else {
48110µs return defined $result ? $result : '';
49 }
50}
51
52sub read {
53 my $module = shift;
54 die 'not implemented';
55}
56
5714µs1;
58__END__