add test.pl file for a usage example of perlmod-test

Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>
This commit is contained in:
Wolfgang Bumiller 2021-02-16 10:42:10 +01:00
parent d870bc9bb3
commit e95a2c0a23

15
test.pl Normal file
View File

@ -0,0 +1,15 @@
#!/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);