source => "braces",
params => "braces5",
expect => <<'#17...........',
-sub message
-{
+sub message {
if ( !defined( $_[0] ) )
{
print("Hello, World\n");
}
- else
- {
+ else {
print( $_[0], "\n" );
}
}
eval {
my $app = App::perlbrew->new( "install-patchperl", "-q" );
$app->run();
-} or do
-{
+} or do {
$error = $@;
$produced_error = 1;
};
}
);
-$r = do
-{
- sswitch( $words[ rand @words ] )
- {
+$r = do {
+ sswitch( $words[ rand @words ] ) {
case $words[0]:
case $words[1]:
case $words[2]:
}
};
-try
-{
+try {
die;
}
-catch
-{
+catch {
die;
};
#17...........