| Filename | /usr/lib/perl/5.10/MIME/Base64.pm |
| Statements | Executed 15 statements in 395µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 19µs | 24µs | MIME::Base64::BEGIN@3 |
| 1 | 1 | 1 | 8µs | 55µs | MIME::Base64::BEGIN@4 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package MIME::Base64; | ||||
| 2 | |||||
| 3 | 3 | 39µs | 2 | 28µs | # spent 24µs (19+4) within MIME::Base64::BEGIN@3 which was called:
# once (19µs+4µs) by C4::Letters::BEGIN@23 at line 3 # spent 24µs making 1 call to MIME::Base64::BEGIN@3
# spent 4µs making 1 call to strict::import |
| 4 | 3 | 79µs | 2 | 102µs | # spent 55µs (8+47) within MIME::Base64::BEGIN@4 which was called:
# once (8µs+47µs) by C4::Letters::BEGIN@23 at line 4 # spent 55µs making 1 call to MIME::Base64::BEGIN@4
# spent 47µs making 1 call to vars::import |
| 5 | |||||
| 6 | 1 | 800ns | require Exporter; | ||
| 7 | 1 | 8µs | @ISA = qw(Exporter); | ||
| 8 | 1 | 700ns | @EXPORT = qw(encode_base64 decode_base64); | ||
| 9 | |||||
| 10 | 1 | 500ns | $VERSION = '3.08'; | ||
| 11 | |||||
| 12 | 1 | 600ns | require XSLoader; | ||
| 13 | 1 | 256µs | 1 | 240µs | XSLoader::load('MIME::Base64', $VERSION); # spent 240µs making 1 call to XSLoader::load |
| 14 | |||||
| 15 | 1 | 2µs | *encode = \&encode_base64; | ||
| 16 | 1 | 500ns | *decode = \&decode_base64; | ||
| 17 | |||||
| 18 | 1 | 8µs | 1; | ||
| 19 | |||||
| 20 | __END__ |