[perlmod.git] / test.pl

#!/usr/bin/env perl

use v5.28.0;

use lib '.';
use RSPM::Bless;

my $v = RSPM::Bless->new("Hello");
$v->something();
my ($a, $b, $c) = $v->multi_return();
say "Got ($a, $b, $c)";
my @ret = $v->multi_return();
say "Got: ".scalar(@ret)." values: @ret";

$v->another(54);
Commit	Line	Data
e95a2c0a WB	1	#!/usr/bin/env perl
	2
	3	use v5.28.0;
	4
	5	use lib '.';
	6	use RSPM::Bless;
	7
	8	my $v = RSPM::Bless->new("Hello");
	9	$v->something();
	10	my ($a, $b, $c) = $v->multi_return();
	11	say "Got ($a, $b, $c)";
	12	my @ret = $v->multi_return();
	13	say "Got: ".scalar(@ret)." values: @ret";
	14
	15	$v->another(54);