diff --git a/test.pl b/test.pl new file mode 100644 index 0000000..591a462 --- /dev/null +++ b/test.pl @@ -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);