[perl5.git] / lib / perl5db / t / test-PrintRet-option-1

#!/usr/bin/perl

use strict;
use warnings;

my ($x, $y);

sub return_scalar
{
    $y++;

    return "20024";
}

sub return_list
{
    $y++;

    return ("Foo", "Bar", "Baz");
}

sub return_void
{
    $y++;

    return;
}

$y++;

# Choose one based on $x
#
if ($x eq "s")
{
    my $s = return_scalar();
}
elsif ($x eq "l")
{
    my @l = return_list();
}
else
{
    return_void();
    $y++;
}
Commit	Line	Data
413b1248 SF	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	my ($x, $y);
	7
	8	sub return_scalar
	9	{
	10	$y++;
	11
	12	return "20024";
	13	}
	14
	15	sub return_list
	16	{
	17	$y++;
	18
	19	return ("Foo", "Bar", "Baz");
	20	}
	21
	22	sub return_void
	23	{
	24	$y++;
	25
	26	return;
	27	}
	28
	29	$y++;
	30
	31	# Choose one based on $x
	32	#
	33	if ($x eq "s")
	34	{
	35	my $s = return_scalar();
	36	}
	37	elsif ($x eq "l")
	38	{
	39	my @l = return_list();
	40	}
	41	else
	42	{
	43	return_void();
	44	$y++;
	45	}
	46