#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw /cmpthese/;

cmpthese -5 => {
    init    => 'my $title = ""; my $page = 0; my $chapter = 0;
                $title && $page && $chapter',
    def     => 'my ($title, $page, $chapter);
                $title && $page && $chapter',
};

__END__
          Rate init  def
init 1165121/s   -- -38%
def  1876595/s  61%   --