The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
123456789101112131415161718 package MyTest;use MyTest::Mite;use Sub::HandlesVia;has list => ( is => 'ro', isa => 'ArrayRef', default => \ '[11]', handles_via => 'Array', handles => { push => 'push', pop => 'pop', reset => 'reset', },);1;
package
MyTest;
use
MyTest::Mite;
Sub::HandlesVia;
has
list
=> (
is
=>
'ro'
,
isa
'ArrayRef'
default
=> \
'[11]'
handles_via
'Array'
handles
=> {
push
'push'
pop
'pop'
reset
'reset'
},
);
1;