PlusPlus 1.23

PlusPlus is a Delphi, VB, Java-like Perl preprocessor.

SYNOPSIS

### Case 1: plain script

use PlusPlus;

/*
This is
a long awaited
multiline
comment
*/

my $nested_hash = {outer => {inner => {a => 1, b => [19, 73], c => 3}}}

$nested_hash.outer.inner.a = 5; # colon in variable names
$nested_hash.outer.inner.b.[1] = 37;

$dbh.do ("DROP DATABASE TEST"); # colon in method names

with ($nested_hash.outer.inner) { # with operator
($.a, $.c) = (10, 30);
print " b[0] = $.b.[0]n";
};

function f ($x, $y = 0) { # named parameters and default values
return sin ($x) * cos ($y)
};

### Case 2: working with a database

use PlusPlus;
use DBI;

my $dbh = DBI -> connect ($dsn, $user, $password);

select name, phone from staff where salary between ? and ? -> my $sth;

forsql $sth (1000, 1500) {
print "< tr > < td > $.name < /td > < td > $.phone < /td > < /tr >"
}


### Case 3: procedural module

use PlusPlus;

module Child (Ancestor::Mother, Ancestor::Father);

sub foo { ... }; # not exported

export sub bar { ... }; # exported by default

export_ok sub baz { ... }; # can be imported explicitly


### Case 4: class

class Child (Ancestor::Mother, Ancestor::Father);

method init { # constructor callback
($.x, $.y) = (10, 3);
}

method diag { # some method
sqrt ($.x * $.x + $.y * $.y)
}

method do_it_to_me ($coderef) { # one more method
&$coderef ($self);
}

getter fldname { # getter method
print "They asked my value!n";
return $.fldname;
}

setter fldname ($value) { # setter method
$.setting_counter ++;
$.fldname = $value;
}