Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
doc
/
perl-Mouse
/
example
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
point.pl
772 B
-rw-r--r--
2019-10-27 19:43:23
Edit
Del
traits.pl
438 B
-rw-r--r--
2019-10-27 19:43:23
Edit
Del
warns.pl
472 B
-rw-r--r--
2019-10-27 19:43:23
Edit
Del
Editing: traits.pl
(438 B)
Path: /usr/share/doc/perl-Mouse/example/traits.pl
Back
#!/usr/bin/perl package IntStack; use Mouse; has storage => ( is => 'ro', isa => 'ArrayRef[Int]', default => sub{ [] }, traits => [qw(Array)], handles => { push => 'push', pop => 'pop', top => [ get => -1 ], }, ); __PACKAGE__->meta->make_immutable(); package main; my $stack = IntStack->new; $stack->push(42); $stack->push(27); print $stack->pop, "\n"; print $stack->top, "\n";