The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

# [[[ HEADER ]]]
package RPerl::Test;
use strict;
our $VERSION = 0.004_000;
# [[[ OO INHERITANCE ]]]
# [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls) # USER DEFAULT 1: allow numeric values & print operator
# [[[ OO PROPERTIES ]]]
our hashref $properties = {};
# [[[ SUBROUTINES & OO METHODS ]]]
# OO INHERITANCE TESTING
sub empty_method {
{ my void::method $RETURN_TYPE };
( my object $self ) = @ARG;
print 'Hello, World!', "\n";
return;
}
1; # end of class