Filename | /usr/lib/perl/5.14/MIME/Base64.pm |
Statements | Executed 14 statements in 354µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 13µs | 15µs | BEGIN@3 | MIME::Base64::
1 | 1 | 1 | 9µs | 53µ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 | 25µs | 2 | 18µs | # spent 15µs (13+3) within MIME::Base64::BEGIN@3 which was called:
# once (13µs+3µs) by MIME::QuotedPrint::BEGIN@12 at line 3 # spent 15µs making 1 call to MIME::Base64::BEGIN@3
# spent 3µs making 1 call to strict::import |
4 | 2 | 174µs | 2 | 97µs | # spent 53µs (9+44) within MIME::Base64::BEGIN@4 which was called:
# once (9µs+44µs) by MIME::QuotedPrint::BEGIN@12 at line 4 # spent 53µs making 1 call to MIME::Base64::BEGIN@4
# spent 44µs making 1 call to vars::import |
5 | |||||
6 | 1 | 600ns | require Exporter; | ||
7 | 1 | 6µs | @ISA = qw(Exporter); | ||
8 | 1 | 700ns | @EXPORT = qw(encode_base64 decode_base64); | ||
9 | 1 | 1µs | @EXPORT_OK = qw(encode_base64url decode_base64url encoded_base64_length decoded_base64_length); | ||
10 | |||||
11 | 1 | 300ns | $VERSION = '3.13'; | ||
12 | |||||
13 | 1 | 300ns | require XSLoader; | ||
14 | 1 | 136µs | 1 | 130µs | XSLoader::load('MIME::Base64', $VERSION); # spent 130µs making 1 call to XSLoader::load |
15 | |||||
16 | 1 | 1µs | *encode = \&encode_base64; | ||
17 | 1 | 500ns | *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 | 8µs | 1; | ||
34 | |||||
35 | __END__ |