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; }.

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Delphi,  Libraries,  Method,  Nested,  Perl,  Plusplus,  Programming,  Vb
Users rating:	0/10