| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Internals::DumpArenas; |
|
2
|
|
|
|
|
|
|
#ABSTRACT: Dump perl memory |
|
3
|
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
14367
|
use 5.006_000; |
|
|
1
|
|
|
|
|
3
|
|
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
$VERSION = '0.12_06'; |
|
7
|
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
5
|
use DynaLoader (); |
|
|
1
|
|
|
|
|
1
|
|
|
|
1
|
|
|
|
|
35
|
|
|
9
|
1
|
|
|
1
|
0
|
183
|
sub dl_load_flags { return 0x01 } |
|
10
|
|
|
|
|
|
|
DynaLoader::bootstrap('Internals::DumpArenas', $VERSION); |
|
11
|
|
|
|
|
|
|
|
|
12
|
1
|
|
|
1
|
|
3
|
use Exporter (); |
|
|
1
|
|
|
|
|
5
|
|
|
|
1
|
|
|
|
|
57
|
|
|
13
|
|
|
|
|
|
|
@ISA = 'Exporter'; |
|
14
|
|
|
|
|
|
|
@EXPORT_OK = qw( DumpArenas DumpArenasFd ); |
|
15
|
|
|
|
|
|
|
%EXPORT_TAGS = ( all => [ @EXPORT_OK ] ); |
|
16
|
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
q{ ...A most horrible treasure, this Great Ring," said Frito. |
|
18
|
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
"And a horrible burden for he who bears it," said Goodgulf, "for some |
|
20
|
|
|
|
|
|
|
unlucky one must carry it from Sorhed's grasp into danger and certain |
|
21
|
|
|
|
|
|
|
doom. Someone must take the ring to the Zazu Pits of Fordor, under the |
|
22
|
|
|
|
|
|
|
evil nose of the wrathful Sorhed, yet appear so unsuited to his task |
|
23
|
|
|
|
|
|
|
that he will not soon be found out." |
|
24
|
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
Frito shivered in sympathy for such an unfortunate. |
|
26
|
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
"Then the bearer should be a complete and utter dunce," he laughed |
|
28
|
|
|
|
|
|
|
nervously. |
|
29
|
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
Goodgulf glanced at Dildo, who nodded and casually flipped a small, |
|
31
|
|
|
|
|
|
|
shining object into Frito's lap. It was a ring. |
|
32
|
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
"Congratulations," said Dildo somberly. "You've just won the booby |
|
34
|
|
|
|
|
|
|
prize"... }; |
|
35
|
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
__END__ |