#!/usr/bin/perl
#
# eg2: first coderef example: double_scalar()
#

use strict;
use warnings;
use Function::Parameters qw(:strict);

fun double_scalar($n)
{
	return $n * 2;
}

my $coderef = \&double_scalar;

# TIME PASSES...

my $scalar = $coderef->( 10 );

print "scalar: $scalar\n";
