The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 71
DProfPP.pm 115
MANIFEST 92
META.yml 32
t/00.load.t 70
t/1.t 145
t/2.t 230
t/not_tmon.out 00
t/not_tmon2.out 10
t/pod-coverage.t 60
t/pod.t 60
t/tmon.out 20
t/tmon_bad.out 18890
13 files changed (This is a version diff) 197815
@@ -1,11 +1,5 @@
 Revision history for Perl extension Devel::DProfPP.
-1.3   Wed Dec 8               2004
-    - Fixed bug #8570 - Synopsis code broken              
-1.2   Thu Oct 14              2004
-    - Steve Peters is the new maintainer
-    - Added an '=over" to fix bug in the POD
-    - Changed handling of bad headers to stop a warning
-    - Added several new tests to increase test coverage
+
 1.1   Thu Jun 24 13:38:18 BST 2004
     - Subroutine IDs are in hexa-bloody-decimal
     - Actually pass in parser object to callbacks
@@ -3,7 +3,7 @@ use 5.006;
 use strict;
 use warnings;
 use Carp;
-our $VERSION = '1.3';
+our $VERSION = '1.1';
 use constant DUMMY => sub {};
 my $magic = "fOrTyTwO";
 
@@ -14,12 +14,12 @@ Devel::DProfPP - Parse C<Devel::DProf> output
 =head1 SYNOPSIS
 
   use Devel::DProfPP;
-  my $pp = Devel::DProfPP->new;
+  my $pp = Devel::DProfPP->new
 
   Devel::DProfPP->new(
         file    => "../tmon.out",
         enter   => sub { my ($self, $sub_name)  = shift;
-                         my $frame = ($self->stack)[-1];
+                         my $topframe = ($self->stack)[-1];
                          print "\t" x $frame->height, $frame->sub_name;
                        }
   )->parse;
@@ -79,10 +79,7 @@ sub _parse_header {
     my ($over_tests, $rrun_utime, $rrun_stime, $rrun_rtime, $total_marks);
     my $fh = $self->{fh};
     my $head = <$fh>;
-    if(!defined $head || $head !~ /$magic/) {
-        croak "This isn't really DProf output";
-    }
-
+    croak "This isn't really DProf output" unless $head =~ /$magic/;
     while (<$fh>) {
         last if /^PART2/;
         eval;
@@ -188,8 +185,6 @@ of a subroutine call. C<Devel::DProfPP> doesn't do this for you.
 
 The user, system and real times (in cycles) for the whole program run.
 
-=back 
-
 =cut
 
 sub header { $_[0]->{header} }
@@ -303,8 +298,7 @@ omission should't make any real difference.
 
 =head1 AUTHOR
 
-Simon Cozens is the original author.  Currently maintained by 
-Steve Peters, C<steve@fisharerojo.org>
+Simon Cozens, C<simon@cpan.org>
 
 =head1 LICENSE
 
@@ -1,14 +1,7 @@
 Changes
 DProfPP.pm
-Makefile.PL
 MANIFEST
-META.yml			Module meta-data (added by MakeMaker)
-t/00.load.t
+Makefile.PL
 t/1.t
-t/2.t
-t/not_tmon.out
-t/not_tmon2.out
-t/pod-coverage.t
-t/pod.t
 t/tmon.out
-t/tmon_bad.out
+META.yml                                Module meta-data (added by MakeMaker)
@@ -1,10 +1,9 @@
-# http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Devel-DProfPP
-version:      1.3
+version:      1.1
 version_from: DProfPP.pm
 installdirs:  site
 requires:
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.24
+generated_by: ExtUtils::MakeMaker version 6.12
@@ -1,7 +0,0 @@
-use Test::More tests => 1;
-
-BEGIN {
-use_ok( 'Devel::DProfPP' );
-}
-
-diag( "Testing Devel::DProfPP $Devel::DProfPP::VERSION" );
@@ -6,20 +6,12 @@ my $thing;
 my ($call_count, $leave_count);
 
 my @times;
-my @frames;
+
 sub my_enter { $call_count++; }
 
 sub my_leave { my $name = $_[1];
     $leave_count++;
-    if ($name eq "main::_path") { 
-        @times = ($thing->stack)[-1]->cum_times;
-	@frames = $thing->stack;
-    } elsif($name =~ /Devel/) {	
-	is($frames[-1]->height, 0);
-        is($frames[0]->sub_name, 'main::_path');
-	is($frames[0]->times, 3);
-	is($frames[0]->inc_times, 3);
-    }
+    if ($name eq "main::_path") { @times = ($thing->stack)[-1]->cum_times; }
 }
 
 eval {$thing = new Devel::DProfPP; };
@@ -30,7 +22,7 @@ eval { $thing = new Devel::DProfPP(
     leave => \&my_leave); };
 isa_ok($thing, "Devel::DProfPP");
 $thing->parse;
-is_deeply($thing->header(), {
+is_deeply($thing->{header}, {
     hz=>100,
     XS_VERSION=>'DProf 20000000.00_00',
     over_utime=>21, over_stime=>0, over_rtime=>46,
@@ -38,7 +30,6 @@ is_deeply($thing->header(), {
     rrun_utime=>67, rrun_stime=>0, rrun_rtime=>135,
     total_marks=>7736              
 }, "header is parsed correctly");
-is($call_count, 3870, "Right number of enters");
-is($leave_count, 3870, "Right number of leaves");
+is($call_count, 3869, "Right number of enters");
+is($leave_count, 3869, "Right number of leaves");
 is_deeply(\@times, [0.21,0,0.36], "Correct cumulative times");
-
@@ -1,23 +0,0 @@
-# vim:ft=perl
-use Test::More qw(no_plan);
-use Data::Dumper;
-
-use_ok("Devel::DProfPP");
-
-my $pp = Devel::DProfPP->new(file => 't/not_tmon.out', );
-eval {$pp->parse();};
-like($@, qr/^This isn't really DProf output/, "Test parsing an empty file");
-
-$pp = Devel::DProfPP->new(file => 't/not_tmon2.out', );
-eval {$pp->parse();};
-like($@, qr/^This isn't really DProf output/, "Test parsing a non-tmon.out file");
-
-$pp = Devel::DProfPP->new(file => 't/tmon_bad.out', );
-eval {$pp->parse();};
-like($@, qr/^Didn't expect to see/, "Test parsing a bad tmon.out file");
-
-eval { $pp->_enter(5); };
-like($@, qr/^Entering unknown subroutine/, 'Testing entering an unknown subroutine');
-
-eval { $pp->_leave(5); };
-like($@, qr/^Leaving unknown subroutine/, 'Testing leaving an unknown subroutine');
diff --git a/var/tmp/source/SMPETERS/Devel-DProfPP-1.3/Devel-DProfPP-1.3/t/not_tmon.out b/var/tmp/source/SMPETERS/Devel-DProfPP-1.3/Devel-DProfPP-1.3/t/not_tmon.out
deleted file mode 100644
index e69de29b..00000000
@@ -1 +0,0 @@
-foo
@@ -1,6 +0,0 @@
-#!perl -T
-
-use Test::More;
-eval "use Test::Pod::Coverage 1.04";
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
-all_pod_coverage_ok();
@@ -1,6 +0,0 @@
-#!perl -T
-
-use Test::More;
-eval "use Test::Pod 1.14";
-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
-all_pod_files_ok();
@@ -7880,8 +7880,6 @@ PART2
 - 4
 - 4
 - 4
-* 4
-/ 4
 @ 0 0 1
 + & Devel::DProf::write
 @ 1 0 1
@@ -1,1889 +0,0 @@
-#fOrTyTwO
-$hz=100;
-$XS_VERSION='DProf 20000000.00_00';
-# All values are given in HZ
-$over_utime=21; $over_stime=0; $over_rtime=46;
-$over_tests=10000;
-$rrun_utime=67; $rrun_stime=0; $rrun_rtime=135;
-$total_marks=7736                                                                                                                                                                               
-
-PART2
-@ 2 0 3
-& 2 main BEGIN
-+ 2
-& 3 integer import
-+ 3
-- 3
-- 2
-@ 1 0 1
-& 4 main _path
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-@ 1 0 0
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-@ 1 0 0
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-@ 1 0 0
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-@ 1 0 0
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-@ 0 0 3
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-@ 1 0 0
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-@ 1 0 0
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-@ 0 0 1
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-@ 1 0 0
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-@ 5 0 11
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-@ 0 0 1
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-@ 1 0 0
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-@ 0 0 1
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-@ 0 0 1
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-@ 1 0 0
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-@ 0 0 1
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-@ 1 0 0
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-@ 0 0 1
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-@ 1 0 0
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-@ 0 0 1
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-@ 1 0 0
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-@ 0 0 1
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-@ 0 0 3
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-@ 0 0 1
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-@ 1 0 0
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-- 4
-+ 4
-@ 0 0 1
-- 4
-+ 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-+ 4
-+ 4
-+ 4
-- 4
-- 4
-- 4
-* 4
-/ 4
-  4
-@ 0 0 1
-+ & Devel::DProf::write
-@ 1 0 1
-- & Devel::DProf::write