mirror of
https://git.proxmox.com/git/perlmod
synced 2025-10-04 11:58:18 +00:00
43 lines
1020 B
Perl
43 lines
1020 B
Perl
#!/usr/bin/env perl
|
|
|
|
use v5.28.0;
|
|
|
|
use lib '.';
|
|
use RSPM::Bless;
|
|
use RSPM::Foo142;
|
|
|
|
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);
|
|
|
|
my $param = { a => 1 };
|
|
my $s = "Hello You";
|
|
print "These should be called with a valid substr:\n";
|
|
RSPM::Foo142::test(substr($s, 3, 3));
|
|
RSPM::Foo142::teststr(substr($s, 3, 3));
|
|
print "Parameter exists: " . (exists($param->{x}) ? "YES" : "NO") . "\n";
|
|
RSPM::Foo142::test($param->{x});
|
|
print "Was auto-vivified: " . (exists($param->{x}) ? "YES" : "NO") . "\n";
|
|
RSPM::Foo142::teststr($param->{x});
|
|
|
|
my $a = "Can I have some coffee please?\n";
|
|
print $a;
|
|
my $b = RSPM::Foo142::test_serde($a);
|
|
print $b;
|
|
my $c = RSPM::Foo142::test_serde($b);
|
|
print $c;
|
|
|
|
use utf8;
|
|
binmode STDOUT, ':utf8';
|
|
my $a = "Can I have some ☕ please?\n";
|
|
print $a;
|
|
my $b = RSPM::Foo142::test_serde($a);
|
|
print $b;
|
|
my $c = RSPM::Foo142::test_serde($b);
|
|
print $c;
|