Re^8: If Perl 5 were to become Perl 7, what (backward-compatible) features would you want to see?

in reply to Re^7: If Perl 5 were to become Perl 7, what (backward-compatible) features would you want to see?
in thread If Perl 5 were to become Perl 7, what (backward-compatible) features would you want to see?

Neat. Neater, see below. ;-)

*** Trigger Warning *** Raku content *** Trigger Warning ***

use DBIish; 

role DB-Connection {
    has $.dbh;

    submethod TWEAK( :$dbh! ) { 
            $!dbh = $dbh.isa(DBIish) ?? $dbh !! DBIish.connect( |%$dbh
+ ); 
    }
}
[download]

Notes: The ! after $dbh, in the signature of the TWEAK method makes $dbh argument required. The colon indicates it is a named argument, rather than a positional one.
Attributes are always read only by default.
The |%$dbh does two things. The % "dereferences" (rather re-containerizes) the Hash in $dbh. The | then flattens that hash into named subroutine arguments.

holli

You can lead your users to water, but alas, you cannot drown them.

Comment on Re^8: If Perl 5 were to become Perl 7, what (backward-compatible) features would you want to see? Select or Download Code

In Section Meditations