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 845µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	3.94ms	4.09ms	Razor2::Engine::VR8::::BEGIN@2Razor2::Engine::VR8::BEGIN@2
1	1	1	39µs	180µs	Razor2::Engine::VR8::::BEGIN@3Razor2::Engine::VR8::BEGIN@3
1	1	1	33µs	152µ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	346µs	1	4.09ms	# spent 4.09ms (3.94+149µs) within Razor2::Engine::VR8::BEGIN@2 which was called: # once (3.94ms+149µs) by Razor2::Client::Engine::BEGIN@7 at line 2 use Razor2::Signature::Whiplash; # spent 4.09ms making 1 call to Razor2::Engine::VR8::BEGIN@2
3	2	85µs	2	321µs	# spent 180µs (39+141) within Razor2::Engine::VR8::BEGIN@3 which was called: # once (39µs+141µs) by Razor2::Client::Engine::BEGIN@7 at line 3 use Razor2::String qw(hextobase64); # spent 180µs making 1 call to Razor2::Engine::VR8::BEGIN@3 # spent 141µs making 1 call to Exporter::import
4	2	409µs	2	272µs	# spent 152µs (33+119) within Razor2::Engine::VR8::BEGIN@4 which was called: # once (33µs+119µs) by Razor2::Client::Engine::BEGIN@7 at line 4 use Data::Dumper; # spent 152µs making 1 call to Razor2::Engine::VR8::BEGIN@4 # spent 119µ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