From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
123456789101112131415161718 package Dummy;use strict;use warnings;use parent 'Class::Accessor::Fast';use Params::Validate qw(SCALAR);__PACKAGE__->mk_accessors(qw( dummy));sub new { my $class = shift; my $self = bless {}, $class; return $self;}1;
package
Dummy;
use
strict;
warnings;
parent
'Class::Accessor::Fast'
;
Params::Validate
qw(SCALAR)
__PACKAGE__->mk_accessors(
qw(
dummy
)
);
sub
new {
my
$class
=
shift
$self
bless
{},
return
}
1;