Profile of Razor2/Engine/VR8.pm

Filename	/usr/local/lib/perl5/site_perl/mach/5.24/Razor2/Engine/VR8.pm
Statements	Executed 7 statements in 711µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	3.68ms	3.78ms	Razor2::Engine::VR8::::BEGIN@2Razor2::Engine::VR8::BEGIN@2
1	1	1	26µs	130µs	Razor2::Engine::VR8::::BEGIN@3Razor2::Engine::VR8::BEGIN@3
1	1	1	21µs	109µs	Razor2::Engine::VR8::::BEGIN@4Razor2::Engine::VR8::BEGIN@4
0	0	0	0s	0s	Razor2::Engine::VR8::::newRazor2::Engine::VR8::new
0	0	0	0s	0s	Razor2::Engine::VR8::::signatureRazor2::Engine::VR8::signature

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Razor2::Engine::VR8;
2	2	324µs	1	3.78ms	# spent 3.78ms (3.68+107µs) within Razor2::Engine::VR8::BEGIN@2 which was called: # once (3.68ms+107µs) by Razor2::Client::Engine::BEGIN@7 at line 2 use Razor2::Signature::Whiplash; # spent 3.78ms making 1 call to Razor2::Engine::VR8::BEGIN@2
3	2	59µs	2	234µs	# spent 130µs (26+104) within Razor2::Engine::VR8::BEGIN@3 which was called: # once (26µs+104µs) by Razor2::Client::Engine::BEGIN@7 at line 3 use Razor2::String qw(hextobase64); # spent 130µs making 1 call to Razor2::Engine::VR8::BEGIN@3 # spent 104µs making 1 call to Exporter::import
4	2	321µs	2	197µs	# spent 109µs (21+88) within Razor2::Engine::VR8::BEGIN@4 which was called: # once (21µs+88µs) by Razor2::Client::Engine::BEGIN@7 at line 4 use Data::Dumper; # spent 109µs making 1 call to Razor2::Engine::VR8::BEGIN@4 # spent 88µs making 1 call to Exporter::import
5
6					sub new {
7
8					my ($class, %args) = @_;
9
10					my $self = bless {
11					description => 'whiplash',
12					has_greet_param => 0,
13					whiplash => new Razor2::Signature::Whiplash,
14					rm => $args{RM},
15					}, $class;
16
17					die unless $self;
18
19					return $self;
20
21					}
22
23
24					sub signature {
25
26					my ($self, $text) = @_;
27					my ($sigs, $meta) = $self->{whiplash}->whiplash($$text);
28
29					my @sigs_to_return;
30					return unless $sigs;
31
32					if (scalar @$sigs) {
33					for (@$sigs) {
34					push @sigs_to_return, hextobase64($_);
35					}
36					} else {
37					return;
38					}
39
40					return \@sigs_to_return;
41
42					}
43
44	1	6µs			1;
45