Filename | /usr/lib/perl/5.14/MIME/Base64.pm |
Statements | Executed 14 statements in 610µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 27µs | 35µs | BEGIN@3 | MIME::Base64::
1 | 1 | 1 | 18µs | 162µs | BEGIN@4 | MIME::Base64::
0 | 0 | 0 | 0s | 0s | decode_base64url | MIME::Base64::
0 | 0 | 0 | 0s | 0s | encode_base64url | MIME::Base64::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package MIME::Base64; | ||||
2 | |||||
3 | 2 | 62µs | 2 | 42µs | # spent 35µs (27+8) within MIME::Base64::BEGIN@3 which was called:
# once (27µs+8µs) by Foswiki::Users::HtPasswdUser::BEGIN@2 at line 3 # spent 35µs making 1 call to MIME::Base64::BEGIN@3
# spent 8µs making 1 call to strict::import |
4 | 2 | 278µs | 2 | 307µs | # spent 162µs (18+144) within MIME::Base64::BEGIN@4 which was called:
# once (18µs+144µs) by Foswiki::Users::HtPasswdUser::BEGIN@2 at line 4 # spent 162µs making 1 call to MIME::Base64::BEGIN@4
# spent 144µs making 1 call to vars::import |
5 | |||||
6 | 1 | 1µs | require Exporter; | ||
7 | 1 | 8µs | @ISA = qw(Exporter); | ||
8 | 1 | 2µs | @EXPORT = qw(encode_base64 decode_base64); | ||
9 | 1 | 2µs | @EXPORT_OK = qw(encode_base64url decode_base64url encoded_base64_length decoded_base64_length); | ||
10 | |||||
11 | 1 | 1µs | $VERSION = '3.13'; | ||
12 | |||||
13 | 1 | 2µs | require XSLoader; | ||
14 | 1 | 235µs | 1 | 223µs | XSLoader::load('MIME::Base64', $VERSION); # spent 223µs making 1 call to XSLoader::load |
15 | |||||
16 | 1 | 3µs | *encode = \&encode_base64; | ||
17 | 1 | 2µs | *decode = \&decode_base64; | ||
18 | |||||
19 | sub encode_base64url { | ||||
20 | my $e = encode_base64(shift, ""); | ||||
21 | $e =~ s/=+\z//; | ||||
22 | $e =~ tr[+/][-_]; | ||||
23 | return $e; | ||||
24 | } | ||||
25 | |||||
26 | sub decode_base64url { | ||||
27 | my $s = shift; | ||||
28 | $s =~ tr[-_][+/]; | ||||
29 | $s .= '=' while length($s) % 4; | ||||
30 | return decode_base64($s); | ||||
31 | } | ||||
32 | |||||
33 | 1 | 14µs | 1; | ||
34 | |||||
35 | __END__ |