5 lines
170 B
Perl
5 lines
170 B
Perl
|
use Carp;
|
||
|
|
sub mypush (\@@) {my($list,@things)=@_; push @$list, @things}
|
||
|
|
sub mypop (\@) {my($list)=@_; @$list or croak "Empty"; shift @$list }
|
||
|
|
sub empty (@) {not @_}
|