diff options
| author |   afresh1 <afresh1@openbsd.org> | 2021-03-01 23:14:32 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2021-03-01 23:14:32 +0000 |
| commit | de8cc8edbc71bd3e3bc7fbffa27ba0e564c37d8b (patch) | |
| tree | 5e91ea1711126841ef19ee1ee17705e29dc6baf0 /gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm | |
| parent | Update the MSI addresses for the Armada 8040. This chunk will only be (diff) | |
| download | wireguard-openbsd-de8cc8edbc71bd3e3bc7fbffa27ba0e564c37d8b.tar.xz wireguard-openbsd-de8cc8edbc71bd3e3bc7fbffa27ba0e564c37d8b.zip | |
Import perl-5.32.1
OK sthen@
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm b/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm index ffa4ed57f01..d6b6e85c86b 100644 --- a/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm +++ b/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/Stack.pm @@ -2,7 +2,7 @@ package Test2::API::Stack; use strict; use warnings; -our $VERSION = '1.302162'; +our $VERSION = '1.302175'; use Test2::Hub(); @@ -63,6 +63,12 @@ sub all { return @$self; } +sub root { + my $self = shift; + return unless @$self; + return $self->[0]; +} + sub clear { my $self = shift; @$self = (); |