tsee

use strict;
use warnings;
use Data::Dumper;
use List::Util qw(min max);

my $code = do {local $/; <DATA>};
my %data_hash = eval $code;
my $data = $data_hash{SessionVisitor};

# simple preprocessing step, so we can easily plugin different source data

tsee

use strict;
use warnings;

my @data = (
  {end => 1000, duration => 100, records => 100},
  {end => 1600, duration => 300, records => 400},
  {end => 1200, duration => 150, records => 50},
  {end => 1300, duration => 500, records => 900},
);
my $time_start = 500;

tsee

use strict; use warnings;
use Math::SimpleHisto::XS;
use SOOT qw/:all/;

my $nbins = 10000;
my $starttime = -7200.;
my $endtime = 0.;
my $hs = Math::SimpleHisto::XS->new(nbins => $nbins, min => $starttime, max => $endtime);

my @data = (

tsee

diff --git a/pod/perlxs.pod b/pod/perlxs.pod
index 1eccb49..e5077a8 100644
--- a/pod/perlxs.pod
+++ b/pod/perlxs.pod
@@ -540,6 +540,25 @@ not care about its initial contents.
         OUTPUT:
           timep
 
+=head2 The TYPEMAP: Keyword
+

tsee

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 723914c..69677bb 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -145,6 +145,26 @@ XXX
 
 =item *
 
+L<ExtUtils::ParseXS> has been upgraded from version XXX to version XXX.
+

tsee

package MyRect;
use base 'SDL::Rect';
 
sub new {
        my $class = shift;
        my $self = $class->SUPER::new(@_);
        unless (ref $self) {
                require Carp;
                Carp::croak SDL::GetError();
        }